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combustor  application.  A  relatively  new  material  (IN-586)  was  selected.  Material-property  tests  were 
conducted  to  supplement  published  data  for  this  material. 

The  analytical  models  were  used  to  assess  combustor  design  and  performance  limitations  and  the 
applicability  of  the  design  techniques  over  an  airflow  range  of  2  to  5  pounds  per  second,  cycle  pressure 
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The  research  described  herein  was  conducted  by  AiResearch 
Manufacturing  Company  of  Arizona,  a  Division  of  the 
Garrett  Corporation,  under  Control.  UAAJ02-70-C-0060. 

The  work  was  performed  under  the  technical  management 
of  Captain  Frederick  S.  Sherwin  (deceased),  Mr.  L.  E.  Bell, 
SP4  C.  R.  Roehrig,  and  Mr.  R.  G.  Dodd,  Technology 
Applications  Division,  Eustis  Directorate,  U.S.  Army  Air 
Mobility  Research  and  Development  Laboratory. 

The  objective  of  this  contractual  effort  was  to  develop 
and  validate  analytical  design  techniques  for  small,  high- 
temperature-rise,  low-airflow  gas  turbine  combustors  and 
related  components  and  to  define  the  design  limitations 
associated  with  these  small  advanced  combustors.  The 
analytical  design  models  developed  under  this  program  were 
used  to  design  a  straight-through  annular  combustor  with 
a  Wa  =  3  lb/sec,  P3  *  16  atm,  and  TIT  =  2300°F.  Combustor 
rig  tests  of  this  combustor  indicate  that  the  design  models 
have  the  potential  for  reducing  combustor  development  time 
and  cost  significantly. 

Appropriate  technical  personnel  of  this  Directorate  have 
reviewed  this  report  and  concur  with  the  conclusions 
contained  herein. 

The  findings  and  recommendations  outlined  herein  will  be 
considered  ir  planning  future  small  gas  turbine  engine  and 
combustor  component  development  programs. 
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ABSTRACT 


This  report  describes  an  analytical  and  experimental  study  of 
advanced,  small,  high-temperature  combustors.  The  objectives 
of  the  3 2 -month  program  were 

(a^  To  develop  and  validate  an  analytical  design 
technique  for  small,  high-temperature-rise, 
low- airflow  combustors  and  related  components 

(b)  To  define  the  limitations  associated  with  these 
small  combustors  and  related  components  and  the 
effects  of  these  limitations  on  the  cycle  and  the 
configuration  of  advanced-technology  engines 

Analytical  models  were  developed  to  predict  the  characteristics 
and  performance  of  the  basic  combustor  elements,  including  fuel 
injection,  primary  zone,  dilution  zone,  and  liner  cooling. 

Nine  combustor  element  rig  test  programs  were  conducted  to 
provide  data  to  update  and  validate  the  ana1yM  cal  models. 

Based  on  the  analysis  and  rig  test  results,  a  full-scale  com¬ 
bustor  was  designed,  fabricated,  and  tested.  Ar.  ancillary 
material  screening  program  was  conducted  to  select  the  most 
suitable  existing  material  for  combustor  application.  A  rela¬ 
tively  new  material  (IN-586)  was  selected.  Materia’ -property 
tests  were  conducted  to  supplement  published  data  for  this 
material. 

The  analytical  models  were  used  to  assess  combustor  design 
and  performance  limitations  and  the  applicability  of  the 
design  techniques  over  an  airflow  range  of  2  to  5  pounds  per 
second,  cycle  pressure  ratio  range  of  10  to  16  (including  re¬ 
cuperation)  ,  and  a  turbine  inlet  temperature  range  of  2300°F 
to  2700 °F. 


FOREWORD 


The  Advanced,  Small,  High-Temperature-Rise  Combustor  Program 
was  conducted  by  the  AiResearch  Manufacturing  Company  of 
Arizona  under  Contract  DAAJ02-70-C-0060,  Task  1G162203D14413, 
with  the  Eustis  Directorate,  U.S.  Army  Air  Mobility  Research 
and  Development  Laboratory.  The  primary  objective  of  the 
three-phase,  32-month  orogram  was  to  develop  and  validate 
design  techniques  for  iv^nced,  small,  high- temperature-rise 
combustors  for  gas  turoine  engines  in  the  2-  to  5-pound-per- 
second  class. 

This  report  is  presented  in  two  vo'lumes.  Volume  I  describes 
the  derivation  of  the  analytical  models  (Phase  I)  and 
combustor-element  rig  tests  (Phase  II)  that  were  conducted 
to  provide  data  to  validate  the  models.  Volume  II  describes 
the  design  and  test  (Phase  III)  of  a  full-scale  combustor 
that  was  derived  from  the  results  of  Phases  I  and  II. 

Volume  I  contains  six  appendixes,  which  give  abstracts  of  six 
of  the  computer  programs  derived  for  combustion  system  analy¬ 
sis  under  the  contract.  Information  presented  in  each  ab¬ 
stract  includes  a  brief  description  of  program  computation 
capability,  input,  computation  procedures  (including  a  listing 
of  all  computation  routines) ,  and  a  sample  output.  The  pro¬ 
grams  are  coded  in  Garrett  Universal  FORTRAN  for  the  Control 
Data  Corporation  (CDCj  6400  computer  facility.  Because  of  the 
limited  schedule  and  budget  constraints  of  the  contract,  the 
computer  programs  were  not  fully  developed  and  debugged; 
therefore,  it  can  be  assumed  that  some  programming  errors 
still  remain  in  some  or  all  of  the  computer  programs . 

The  Program  Manager  was  Mr.  K.  M.  Johansen.  Principal  con¬ 
tributing  engineers  to  Phases  I  and  II  were  Mr.  S.  C.  Hunter 
(Principal  Investigator),  Ms.  S.  L.  Trexler  (Documentation 
Engineer) ,  and  Dr.  M.  P.  Wood  (Element  Test  Director) . 

Dr.  H.  C.  Mongia  (Combustion  Engineering)  was  assigned  to  the 
program  during  Phase  II  to  update  the  analytical  models. 

Other  contributors  to  the  program  were  Messrs.  C.  G.  Mackay, 

E.  L.  Kumm,  and  J.  A.  Pyne.  Dr.  D.  E.  Metzger  of  Arizona 
State  University  was  the  major  consultant  on  liner  film  cool¬ 
ing  studies.  The  program  was  monitored  by  Messrs.  L.  Bell, 
Jr.,  R.  Dodd,  and  C.  Roehrig  from  the  Eustis  Directorate, 

U.S.  Army  Air  Mobility  Research  and  Development  Laboratory. 
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Oxygen  concentration  in  the  surrounding  gas 
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Symbols 


“r 


Nu 

Nuh 


n/797 

Nu 

x 

n 

n 


n 

OR 

P/P 

PF 

P 

a 

Pcomb 

Pr 


P 

P 

P 

P 


t 

v 

1 
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Air  to  fuel  mass  flow  ratio 
Molecular  weight  of  vaporized  fuel 
Species  mass  fraction 

Mass  of  species  j  in  unit  mass  of  mixture  (mas 
fraction) 

Generalized  constant  for  species  creation  rate 
Eq.  (48) 

Nusselt  number 

Nusselt  number  for  heat  transfer,  Eq.  (7) 
Nusselt  number  for  mass  transfer,  Eq.  (8) 

Gas  generator  speed 
Local  Nusselt  number  (h  /k) 

Annulus  upstream  flow  rate/slot  flow  rate 
Constant,  Eq.  (50) 

Number  of  holes,  Eq.  (53) 

Combustor  outer  radius 

Cycle  pressure  ratio 
Combustor  exit  pattern  factor 
Partial  pressure  of  air 
Combustor  internal  pressure,  psia 
Prandtl  nun.ber 
Total  pressure 

Partial  pressure  of  vaporized  fuel 
Upstream  total  pressure  in  double  sonic  probe 
Downstream  total  pressure 
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Symbols 


P 

Qc 

°L 

Q1'Q2'Q3 

q 

q 

^liquid 

VI 


R. 

3 


n 

r 

S 

Sc 
SG 
SMD 
S 
T 


amb 


T 


aw 


T 


m 


T 

max 

T 

mm 


T 


sp 


Combustor  inlet  pressure,  psi 
Hydrodynamic  pressure 
Heat  of  combustion  of  fuel 
Latent  heat  of  evaporation 
Loading  parameters 
Dynamic  head 
Local  heat  flux 

Heat  transfer  rate  with  liquid  film 
Gas  radiation  flux 

Radiation  flux  from  the  back  wall,  Eq.  (152) 
Rate  of  j-th  species  creation,  lb/sec/ft^ 
Reynolds  number 
Radius,  in. 

Stoichiometric  ratio  of  02 

Schmidt  number 

Fuel  specific  gravity 

Sauter  Mean  Diameter 

Slot  width  or  fuel  sheet  thickness 

Ambient  temperature 

Adiabatic  wall  temperature 

Main  (hot)  stream  temperature 

Maximum  temperature 

Minimum  temperature 

Spontaneious  ignition  temperature 
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Symbols 


Back  wall  temperature 
Normalized  temperature,  Eq.  (129) 

Initial  coolant  film  temperature 
Turbulence  intensity  at  the  flame  surface 
Droplet  surface  temperature 
Total  temperature 

Geometric  calibrated  gas  temperature  in  double 
sonic  probe 

Downstream  measured  temperature  in  doable  sonic 
probe 

Combustor  inlet  temperature,  °R 
Combustor  discharge  temperature 
Mixture  temperature 
Mixture  velocity,  ft/sec 

3 

Combustor  or  reaction  volume  of  enclosed  gas,  ft 
Flow  throuqh  dome/flow,  g,  through  holes 

Assist-air  shroud  discharge  velocity,  ft/sec 

Effective  gas  velocity,  ft/sec 

Fuel  sheet  velocity,  ft/sec 

Free-stream  velocity 

Viscosity  number 

Air  velocity/fuel  velocity 

Kinetic  energy  of  mean  motion 

Duct  mass  flow 

Assist-air  mass  flow,  lb/hr 
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Symbols 


W  . 
air 

We 

W„ 


Wf/L 

W_ 


W. 

De 

W. 

3° 

W 

P 

W 


w 

X 

Y+ 

Yc 

y 

y 

Yi 

^2 

z 

Zr02 

a 

a 

a 
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Shroud  airflow,  lb/sec 

Weber  number 

Fuel  flow  rate,  lb/hr 

Fuel  flow  rate  per  unit  length 

Mainstream  weight  flow  rate,  lb/sec 

Weight  flow  entrained  in  jet,  lb/sec 

Injected  jet  weight  flow  rate,  lb/sec 

Flow  rate  of  products 

Ratio  of  coolant  mass  velocity  to  the  mainstream 
mass  velocity 

Volume  flow  per  unit  width,  cu  ft/sec/ft 
Radial  distance  from  center  of  jet 
Normalized  distance  from  the  wall 
Critical  depth,  in. 

Cross-stream  distance  from  wall 
Velocity  of  injected  mass/duct  velocity 
Supercritical  upstream  depth 
Subcritical  downstream  depth 
Wall  width,  ft 
Rokide-Z  coating 

Spray  angle,  degrees  or  pressure  drop  parameter 
Angle  of  jet  spreading 
Absorptivity 
Jet  efflux  angle 
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Symbols 


r . 

3 


Y 


AP  . 
air 

AP 


APf 
A  P/P 


ap/p3 

6 


v 


P 

pf 

pg 

po 

pr 


n 

n 


Exchange  coefficient  of  species  j 
Exchange  coefficient  of  heat 

Exchange  coefficient  of  turbulence  kinetic  energy 

Arc  sin  6/2  Rq,  Eq.  (54) 

Airflow  differential  pressure,  psid 

Effective  differential  pressure,  psid 

Differential  fuel  pressure,  psid 

Maximum  pressure  drop 

Maximum  total  pressure  loss 

Effective  jet  width  at  the  orifice  greater 
than  dQ  due  to  jet  distortion,  Eq.  (54) 

Recuperative  effectiveness 

Gas  emissivity 

Back  wall  emissivity 

Combustor  efficiency 

Wave  length,  (i 

Fuel  viscosity,  centistokes 

Mixture  or  air  density 

Fuel  density,  lb/ ft 

2 

Gas  density,  lb/ft 

3 

Injected  air  density,  lb/ft 
Hot  gas  density,  lb/ft3 

Effective  jet  width  or  Stefan-Boltzmann  constant 

Square  root  of  the  variance  of  a  distribution 
(stress  analysis) 

Fuel  surface  tension,  dynes  per  cm 
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Symbols 


0  Dependent  variables  or  rotational  angle  around 

circumference  of  ellipse  or  ratio  of  average 
surface  heat  transfer  with  injection  to  that 
without  injection 

0fo  Transformed  dependent  variable 

Metric  coefficients 

t  Length  scale  of  turbulence  or  finite  axial  film 

cooled  distance 
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1 . 0  INTRODUCTION 


1.1  GENERAL  INFORMATION 

Advanced,  small,  high-pressure-ratio  high-turbine-inlet- 
temperature  turboshaft  engines  impose  conflicting  requirements 
on  the  various  elements  of  the  combustor  such  as  fuel  injec¬ 
tion  and  liner  cooling. 

A  large  number  of  insertion  points  are  desirable  in  order  to 
provide  a  uniform  temperature  pattern  over  a  large  range  of 
fuel  flows.  However,  nozzle  fuel  passages  should  be  large  in 
order  to  tolerate  contaminated  fuels. 

Small  engine  configurations  dictate  combustors  with  relatively 
high  liner  suxface-to-airflow  ratios  requiring  higher  airflow 
percentages  for  cooling.  Conversely,  the  liner  cooling-air 
temperature  increases  with  higher  pressure  ratio  and  less  is 
available  at  higher  turbine  inlet  temperatures;,  due  to  in¬ 
creased  airflow  required  for  combustion  and  turbine  cooling. 

Current  design  procedures  for  small  combustion  systems  are 
based  largely  on  empirical  correlations  and  experience  derived 
from  numerous  APU  and  propulsion  engine  combustor  development 
programs.  One-dimensional  simplified  analytical  models  are 
included  ir.  the  current  design  procedures  but  are  of  limited 
use.  Two-dimensional  and  three-dimensional  models  are  desir¬ 
able;  but  due  to  computer  time  limitations  and  limited  knowl¬ 
edge  of  the  transport  phenomenon  in  typical  combustor  flow 
fields,  they  have  been  extremely  difficult  to  apply.  The  work 
in  this  program  represents  a  concerted  effort  to  advance  the 
analytical  capabilities  available  to  the  combustor  designer  to 
deal  with  these  complex  problems . 

1.2  OBJECTIVES 

This  report  describes  a  program  addressed  to  the  problems  of 
advanced,  small,  high-temperature-rise  combustors.  The  objec¬ 
tives  of  the  three-phase  program  were: 

(a)  To  develop  and  validate  an  analytical  design  tech¬ 
nique  for  small,  high-temperature-rise,  low-airflow 
combustors  and  related  components 

(b)  To  define  the  limitations  associated  with  these 
small  combustors  and  related  components  and  the 
effect  of  these  limitations  on  the  cycle  and  con¬ 
figuration  of  advanced-technology  engines 


The  approach  that  was  employed  included  analysis  and  test  of 
combustor  elements,  followed  by  the  design  and  test  of  a  com¬ 
plete  combustion  system.  Volume  I  of  this  report  describes 
the  development  of  the  analytical  models  and  the  combustor  ele¬ 
ment  rig  tests  that  were  conducted  to  obtain  data  for  updating 
and  validating  the  design  techniques.  Volume  II  describes  the 
design  and  test  of  the  full-scale  combustion  system. 

The  analysis  was  addressed  to  combustors  and  engines  having 
the  following  characteristics: 

(a)  Airflow  (Wa)  =  2  to  5  pounds  per  second 

(b)  Cycle  pressure  ratio  (P/P)  =  10.0  to  16.0 

(c)  Turbine  inlet  temperature  (T^ )  =  2300°F  to  2700°F 

(d)  Centrifugal  last-stage  compressor 

(e)  Axial  or  radial  turbine 

(f)  Reverse-flow  annular,  straight-through  annular,  and 
single-  or  multiple-can  combustors 

(g)  Simple  or  recuperative  cycles  (recuperative  effec¬ 
tiveness,  e,  of  65  percent) 

Performance  goals  of  combustors  derived  by  the  design  tech¬ 
niques  established  by  this  study  include: 

(a)  Combustion  efficiency  (rig)  =  99  percent 

(b)  Maximum  total  pressure  loss  (AP/P3)  =  3  percent 
(excluding  recuperator) 


(c)  Maximum  combustor  exit  pattern  factor,  PF  =  0.20 


PF  = 


T  -T 

4  max  4  avc 


T  -T 

4  avg  3  avg 


where  T~  and  T.  are  the  combustor  inlet  and  dis- 
3  4 

charge  temperature,  respectively 


(d)  Stability  over  a  wide  range  of  fuel-air  ratios,  f/a 


(e)  Light-off/relight  capability  up  to  25,000  feet  alti¬ 
tude,  M  =  0  (the  requirement  for  relight  at  an  alti¬ 
tude  of  45,000  feet,  M  =  0.85,  was  also  examined) 
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(f)  Multifuel  capability  including  MIL-T-5424,  Grades 
JP-4  and  JP-5#  MIL-T-83133,  Grade  JP-8,  and  Aviation 
Turbine  Fuel,  ASTM  D1655-67  Type  A-l 

(g)  Contamination  tolerance  in  accordance  with 
MIL-E-5007C 

(h)  Minimal  formation  of  nitrogen  oxides  (NO  ) ,  carbon 

monoxide  (CO)  ,  and  unburned  hydrocarbons  (UHC) 
consistent  with  the  system  performance  goals 
listed  above 

(i)  Smoke  level  below  the  visible  limit 

The  performance  goals  are  applicable  to  the  air  path  between 
the  compressor  discharge  and  turbine  stator  inlet. 
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2.0  CYCLE  STUDIES  AND  COMBUSTOR  GEOMETRY 


Engine  cycle  studies  and  a  preliminary  combustor  sizing  study 
were  conducted  to  define  combustor  operating  conditions  and 
the  approximate  envelope  for  can-  and  annular-combustor  con¬ 
figurations.  Schematic  drawings  of  several  turboshaft  engine 
configurations  were  prepared  to  assess  the  effects  of  the  com¬ 
bustor  configuration  on  the  engine  envelope. 

2.1  ENGINE  CYCLE  STUDIES  * 

Parametric  cycle  studies  were  conducted  for  a  turboshaft  en¬ 
gine  having  the  following  component  configurations: 

t 

Compressors:  Two-stage  centrifugal  flow 

Gas  Generator  Turbine:  Radial  flow  (simple  cycle) 

Two-stage  axial  flow 
(simple  cycle) 

Single-stage  axial  flow 
(recuperated  cycle) 

Power  Turbine:  Two-stage  axial  flow 

Recuperator:  Stationary  finned  heat  exchanger 

The  component  parameters  used  for  the  cycle  studies  are  listed 
in  Table  I.  These  parameters  were  either  defined  by  the  con¬ 
tract  or  derived  from  AiResearch  correlations.  Table  I  also 
presents  the  calculated  design-point  output  power  and  specific 
fuel  consumption  for  the  specified  cycles. 

Calculated  combustor  operating  conditions  for  the  simple-cycle 
engine  are  given  in  Table  II.  The  table  presents  engine 
steady-state  operating  conditions  (idle  to  maximum  rated 
power)  from  sea  level  to  45,000  feet,  and  engine  acceleration 
characteristics  at  25,000  feet,  static,  and  at  45,000  feet, 

0.85  Mach  number.  .Engine  windmilling  conditions  at  45,000 
feet,  0.85  Mach  number  are  also  presented. 

2 . 2  COMBUSTOR  PRELIMINARY  SIZING  ANALYSIS 

A  preliminary  combustor  sizing  analysis  was  conducted  in  order 
to  determine  the  approximate  size  and  shape  of  combustors  (can,  t 

straight-through  annular,  and  reverse  annular  configurations) 
that  are  compatible  with  the  specified  engine  cycle  and  com¬ 
bustor  performance  goals.  For  this  study,  the  combustor  pre¬ 
liminary  design  is  required  only  to  the  extent  needed  to 
outline  the  combustor  envelope,  thus  providing  a  framework  for  4 

analytical  studies.  A  simplified  procedure  was  used,  based  on 
existing  empirical  correlations  utilizing  the  engine  cycle 
data  presented  in  Table  II. 
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TABLE  I.  ENGINE  CYCLE  PARAMETERS 

Parameter  ; 

Simple 

Cycle 

Recuperated 

Cycle 

Engine  total  airflow  (lb/sec) 

3.0* 

3.0* 

Combustor  total  airflow  (lb/ sec) 

2.733 

2.733 

Turbine  cooling  air  (%) 

8.9 

8.9 

Compressor  pressure  ratio 

16.0* 

10.0* 

Compressor  efficiency 

0.786* 

0.803 

Combustor  efficiency 

0.99* 

0.99* 

Combustor  pressure  drop 

0.03* 

0.03* 

Gas  generator  turbine 

o  Inlet  temperature  (°F) 

2500* 

2500* 

o  Efficiency 

0.850 

0.805 

o  Cooling  flow  (%) 

6.7 

4.5 

Power  turbine  efficiency 

0.87 

0.87 

Recuperator 

o  Effectiveness 

- 

0.65* 

o  Hot-side  pressure  drop 

- 

0.04 

o  Cold-side  pressure  drop 

- 

0.02 

Shaft  horsepower 

644.5 

606.4 

Specific  fuel  consumption 
tlb/hp-hr) 

0.431 

0.381 

♦Parameters  specified  by  the  contract 

An  estimate  of  overall  minimum  size  requirements  of  the 
initial  combustion  system  generally  involves  three  basic  con¬ 
siderations:  (a)  the  combustor  volume  necessary  to  achieve 

the  established  combustion  efficiency  characteristics, 

(b)  the  combustor  open  area  required  to  satisfy  the  limitation 
on  allowable  pressure  drop,  (c)  the  geometric  proportions  re¬ 
quired  to  attain  the  required  discharge  gas  temperature  char¬ 
acteristics  and  stability  limits  within  the  specified  liner 
*  pressure  drop.  To  meet  these  requirements,  the  approximate 

combustor  geometry  was  determined  by  scaled  empirical  correla¬ 
tions  derived  from  previous  well-developed  combustors. 


2.2.1  Combustor  Volume 
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The  minimum  combustor  volume  requirement  (V  .  )  was  determined 
by  the  empirical  correlation 


W  7 

QV  .  =  - 0 . 3.1— 

“  (P  )2(T  )1/2 


(1) 


where  Q  is  the  combustor  aerodynamic  loading  parameter.  This 
is  one  of  many  empirical  correlations  used  to  relate  combustor 
efficiency  with  the  combustor  inlet  conditions  and  minimum 
volume  requirements.  Figures  1  and  2  present  plots  of  QV 
versus  gas  generator  speed  (N//0>_)  for  the  data  listed  in 
Table  II.  1 


These  plots  show  that  QV  increases  as  the  engine  speed  is  re¬ 
duced  but  reaches  maximum  at  approximately  27  percent  speed 
and  then  begins  to  decrease.  Since  component  performance  maps 
are  not  accurately  detailed  in  this  low-speed  regime,  the  com¬ 
puter  program  used  for  the  cycle  calculations  was  unable  to 
converge  to  a  solution  below  a  corrected  speed  (N//02)  of 

approximately  250  percent.  Hence,  the  component  maps  were 
extrapolated  to  extend  the  lines  below  the  peak  loading.  It 
is  apparent  that  the  peak  loading  (and  therefore  the  combustor 
volume  requirements)  increased  with  increasing  altitude  start¬ 
ing  requirements . 

Figure  3  shows  a  plot  of  Q  versus  combustor  efficiency  (nD) • 

D 

As  the  performance  of  a  combustor  is  improved  by  development, 
the  slope  of  the  line  is  decreased.  The  design  line,  shown  in 
Figure  3,  was  selected  as  a  minimum  attainable  goal  within  the 
scope  of  this  program.  A  combustor  efficiency  of  80  percent 
is  required  to  provide  acceptable  engine  acceleration  during 
the  start  cycle.  From  Figure  3,  this  requires  a  value  of  aero¬ 
dynamic  loading,  Q,  of  0.80.  Therefore,  for  engine  acceler¬ 
ation  at  25,000  feet,  Mach  0  (where  the  peak  QV  =  0.0107,  from 
Figure  1),  the  minimum  combustor  volume  is  32.7  cubic  inches. 
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Figure  1.  Relationship  of  QV  to  Gas  Generator  Speed 

(Flight  Conditions  of  Rea  Level,  Static,  and 
25,000  Feet,  Static,  Standard  Day). 
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Figure  2.  Relationship  of  QV  to  Gas  Generator  Speed 
(Flight  Conditions  of  45,000  Feet,  0.85 
Mach,  Standard  Day) . 
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COMBUSTION  EFFICIENCY,  i?B  -  PERCENT 


Q  =  P32  T3°'® 


Figure  3.  Relationship  of  Combustor  Efficiency 
to  Aerodynamic  Loading. 
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On  the  run  line,  the  minimum  volume  is  41.5  cubic  inches. 
Similarly,  at  45,000  feet  and  Mach  0.85,  the  minimum  volume  is 
94  cubic  inches .  The  primary  consideration  was  relight  capa¬ 
bility  at  25,000  feet,  Mach  0.  The  preliminary  sizing  analy¬ 
sis  was  therefore  directed  toward  this  goal.  The  requirements 
for  relight  at  45,000  feet,  Mach  0.85  will  be  discussed  later. 
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2.2.2  Combustor  Geometry 

The  combustor  length  (L)  is  the  sum  of  the  lengths  of  the 
primary  zone  and  dilution  zone.  The  primary-zone  length  must 
be  sufficient  to  ensure  fuel  droplet  evaporation  and  primary- 
zone  recirculation.  The  dilution- zone  length  is  dictated  by 
the  length  required  for  inserting ‘ the  dilution  air  and  mixing 
to  achieve  the  required  pattern  factor  and  radial  temperature 
profile;.  Experience  has  shown  that  combustor  length  is 
typically  2.5  times  the  combustor  diameter  (can  combustor)  or 
annular  height  (annular  combustor) . 

L  =  2.5  D 

L  =  2.5  (OR  -  IR)  (2) 


l 

f 


ft 


where  D,  OR,  and  IR  are  the  combustor  diameter,  outer  radius, 
and  inner  radius,  respectively. 


For  an  annular  combustor,  fuel  injector  spacing  is  a  function 
of  fuel  droplet  dispersion  uniformity  as  required  by  discharge 
temperature  objectives  and  other  pertinent  combustion  param¬ 
eters.  Experience  has  shown  that  the  number  of  injectors  is 
determined  by  the  combustor  geometry  as  follows: 


„  _  Tf  (OR  +  IR) 
2.5  (OR  -  IR) 


(3) 


2.2.3  Combustor  Open  Area 


The  combustor  effective  open  area  (Ae)  is  dictated  by  the 
allowable  maximum  pressure  drop  (AP/P.,) ,  which  was  specified 
to  be  0.03  for  this  analysis. 


For  the  small  pressure  drop  across  the  combustor,  thi3  effec¬ 
tive  open  area  can  be  approximated  by 


The  effective  open  area  is  equal  to  v.he  sum  of  the  orifice 
physical  open  area  multiplied  by  the  orifice  discharge  coeffi¬ 
cient,  Cp,  for  all  liner  openings. 
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These  discharge  coefficients  depend  on  the  type  of  orifice 
design  and  the  flow  properties  at  the  orifice  location.  Ori¬ 
fice  location  and  design  are  dictated  by  the  required  fuel-air 
ratio  at  any  location  and  the  amount  of  penetration  and  mixing 
desired. 

2.2.4  Preliminary  Combustor  Envelope 

The  geometrical  relationships  presented  above  can  be  used  to 
define  an  approximate  combustor  envelope  by  specifying  a  mini-  * 

mum  or  maximum  allowable  combustor  radius.  The  centrifugal 
compressor  diameter  typically  establishes  the  maximum  engine 
diameter,  and  the  annular  combustor  envelope  can  usually  be 
tailored  to  fit  above  the  turbine  for  a  reverse  annular  com-  r 

bustor  configuration  or  between  the  compressor  and  turbine  for 
a  straight-through  combustor  configuration. 

From  an  analysis  of  several  engine  schematics  that  were  pre¬ 
pared,  the  reverse  annular  configuration  appeared  to  be  the 
optimum  for  the  specified  cycle.  The  maximum  combustor  diam¬ 
eter  was  established  to  be  10.1  inches  with  the  corresponding 
combustor  length  and  height  equal  tv  1.65  inches  and  0.66  inch, 
respectively.  The  number  of  injectors  required,  based  on 
experience,  was  18.  This  number  was  considered  too  large, 
since  the  orifice  size  for  each  injector  would  be  relatively 
small  and  therefore  more  subject  to  contamination.  The  number 
of  injectors  can  be  reduced  by  holding  the  length-to-height 
ratio  constant  and  increasing  the  volume,  as  depicted  in 
Figure  4 .  Approximately  eight  injectors  were  considered  to  be 
optimum  from  spacing  and  fuel  contamination  considerations. 

This  number  results  in  a  volume  of  126  cubic  inches,  which  ih 
well  in  excess  of  the  minimum  requirement  of  32.7  cubic  inches 
obtained  previously.  Wall  cooling  requirements  and  consider¬ 
ations  were  deferred  until  information  from  heat  transfer  tests 
and  improved  guidelines'  were  available. 

The  preliminary  sizing  analysis  described  thus  far  was  primar¬ 
ily  concerned  with  annular  combustor  configurations,  either 
reverse  or  straight-through.  The  foregoing  considerations, 
however,  are  generally  applicable  to  both  can  and  annular  con¬ 
figurations.  The  approximate  can-combustor  geometry  was 
determined  as  described  in  the  following  paragraphs. 

The  single-can  combustor  configuration  is  attractive  because 
the  larger  fuel  passage  afforded  by  a  single  fuel  injector 
reduces  susceptibility  to  plugging  by  fuel  contamination  and 
fuel-injection  system  costs  are  less  than  annular  combustor  * 

injector  assemblies.  However,  the  configuration  is  usually 
difficult  to  package  into  an  engine  envelope  because  the  hot 
gas  torus,  which  is  required  to  deliver  the  combustor  discharge 
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gas  to  the  turbine,  is  difficult  to  cool.  In  addition,  the 
system  pressure  drop  is  typically  greater  for  this  configura¬ 
tion,  since  the  dynamic  head  at  the  compressor-diffuser  exit 
is  lost  in  the  single-can  plenum. 

The  combustor  dimensions  are  determined  by  the  minimum  volume 
requirements,  and  by  a  minimum  length- to-diame ter  ratio  of 
2.0.  Thus,  for  a  volume  of  41.5  cubic  inches,  the  single-can 
combustor  would  require  a  length  of  3.74  inches  and  a  diameter  « 

of  1.87  inches. 

Efforts  were  primarily  directed  toward  an  annular  configura¬ 
tion.  For  the  analyses  and  element  tests,  the  basic  geometry 
had  eight  fuel  injectors,  a  height  of  1.36  inches  and  a  f 

length  cf  3.40  inches,  as  depicted  in  Figure  5. 

2 . 3  ENGINE  SCHEMATICS 

Simple-cycle  engine  schematics  were  prepared  as  an  aid  in 
determining  the  size  and  type  of  combustor  to  be  used  in  the 
analytical  studies.  The  combustors  in  these  schematics  were 
sized  by  techniques  described  in  Section  2.2.  The  engine 
components  were  based  on  the  cycle  parameters  in  Table  I. 

The  schematics  were  prepared  with  both  a  radial  and  a  two- 
stage  axial  gas  generator  turbine,  a  two-stage  axial  power 
turbine,  and  three  combustor  configurations.  A  single-stage 
axial  gas  generator  turbine  was  not  included  for  the  simple- 
cycle  engine  because  of  an  efficiency  penalty,  and  because  the 
radial  location  of  the  turbine  inlet  (and,  thus,  the  combustor 
geometry  and  envelope)  would  not  be  significantly  affected. 

The  schematics  are  shown  in  Figures  6  through  11.  The  two 
schematics  that  show  the  shortest  engine  are  the  radial  tur¬ 
bine  with  the  reverse-flow  combustor  and  the  single-can  com¬ 
bustor  (Figures  6  and  10,  respectively).  Of  these  two  con¬ 
figurations,  the  reverse- flow  combustor  is  preferred  because 
it  results  in  the  smallest  engine  diameter  and,  hence,  the 
most  compact  engine. 

A  cursory  stress  analysis  was  conducted  for  the  radial  turbine 
with  a  0.65-inch-diameter  bore  for  the  coaxial  power  turbine  » 

shaft.  With  a  rotational  speed  of  50,690  rpm,  the  power  tur¬ 
bine  shaft  will  be  operating  below  its  first  critical  speed 
for  lengths  less  than  8,5  inches.  Only  the  configurations  in 
Figures  7 ,  9 ,  and  11  would  require  an  increase  in  power  turbine 
shaft  diameter  or  intershaft  bearings  to  avoid  critical  speed 
difficulties. 
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A  more  detailed  engine  design  was  prepared  during  Phase  II  to 
illustrate  the  mechanical  feasibility  of  the  selected  full- 
scale  combustor  configuration. 
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3 . 0  MATERIAL  SELECTION 


For  small,  advanced,  high-temperature  engine  cycles,  the 
cooling-air  requirements  are  considerable  because  of  high  com¬ 
bustor  air  (compressor  discharge)  temperatures  and  high 
surface-to-air flow  ratios.  In  addition,  the  quantity  of  cool¬ 
ing  air  available  is  severely  limited  due  to  primary-zone  and 
dilution-zone  requirements.  It  is  therefore  necessary  to  re¬ 
duce  cooling-air  requirements  by  (a)  minimizing  the  liner  sur¬ 
face  area,  (b)  optimizing  the  cooling-element  design,  and 
(c)  selecting  materials  with  optimum  high-temperature  proper¬ 
ties  . 

Surface-area  and  cooling-element  .design  optimization  is  dis¬ 
cussed  in  subsequent  sections  of  this  report.  This  section 
describes  a  series  of  material  screening  tests  that  were 
conducted  to  provide  a  basis  for  comparing  existing  materials 
and  for  ultimately  selecting  one  material  that  will  provide 
better  properties  for  an  advanced  combustor  application  than 
those  materials  currently  in  use. 

Based  on  a  comparison  of  high-temperature  metallurgical  stabil¬ 
ity,  corrosion  resistance,  and  fabricability ,  IN-if  . 6  was 
selected.  Subsequent  to  this  selection,  a  series  of  mechanical- 
property  tests  was  conducted  to  supplement  the  limited  pub¬ 
lished  data  that  was  available  for  this  relatively  new  mate¬ 
rial  . 

A  brief  summary  of  the  test  procedures  and  results  is  presented 
here.  Two  AiResearch  reports1'2  provide  detailed  test  results 
and  data  analyses. 

3.1  CANDIDATE  MATERIALS 

Experience  has  shown  that  the  three  principal  modes  of  combus¬ 
tor  material  failure  are  cracking,  buckling,  and  hot  corrosion. 
Materials  of  the  Hastelloy  X  class  are  currently  used  for 
combustors  to  provide  hot-corrosion  resistance  an',  high- 
temperature  fretting  resistance.  The  properties  of  Hastelloy  X 
are  well  established  and  thus  served  as  a  base  lino  for  com¬ 
parison  with  other  candidate  materials  in  this  screening  pro¬ 
gram. 

Candidate  materials  were  selected  on  the  basis  of  one  or  more 
properties  that  were  known  to  be  as  good  as  or  better  rhan 
Hastelloy  X.  The  candidate  materials  were: 

o  Haynes  18R 


o 


AiResist  213 


o  Rigimesh  wire  (L605)  with  Rokide-Z  (ZrOj)  coating 

o  TD  Ni-Cr 

o  IN-586 

o  Hastelloy  X  (base  line) 

Table  III  details  the  chemical  conposition  (required  and  actual) 
and  thickness  of  the  material  specimens  used  in  the  program.  » 

As  noted  in  the  table,  the  compositions  of  AiResist  213  and 
IN-586  were  below  specifications.  Since  these  discrepancies 
were  small,  and  because  these  were  the  only  specimens  of  these 
materials  available  for  test  within  the  time  limitation  of  the 
program,  they  were  included  for  comparison.  The  evaluation  of 
test  results  included  a  consideration  of  the  effects  of  these 
discrepancies . 

An  attempt  was  made  to  obtain  all  the  materials  in  0.020-inch- 
thick  sheets.  Since  IN-586  and  AiResist  213  were  available 
only  in  0.032-inch  sheets,  Hastelloy  X  specimens  of  this 
thickness  were  also  tested  to  ensure  a  valid  comparison. 

3.2  SCREENING  TESTS 

The  candidate  materials  were  screened  by  a  series  of  tests  to 
assess  thermal  stability  (property  degradation  after  prolonged 
exposure  at  1800 °F) ,  thermal  fatigue,  corrosion  resistance 
(oxidation  and  sulfidation),  and  fabricability .  Where  possible, 
the  test  results  were  compared  with  published  data. 

3.2.1  Thermal  Stability 

Tensile  properties,  at  room  temperature  and  1800°F,  and  stress- 
rupture  properties  at  180 0°F  were  determined  before  and  after 
100-hour  exposure  in  air  at  1800 °F.  These  tests  were  conducted 
in  accordance  with  ASTM  Test  Methods  E8  and  E139,  respectively. 

The  stress -rupture  tests  were  conducted  with  three  specimens  of 
each  material,  one  specimen  loaded  to  produce  failure  in 
approximately  50,  100,  and  150  hours.  A  Larson-Miller  param¬ 
eter  of  52  was  arbitrarily  selected  for  rating  the  stress- 
rupture  properties  of  the  candidate  materials.  This  is  * 

equivalent  to  1000  hours  at  1800 °F. 

3.2.2  Thermal  Fatigue 

While  a  standard  thermal -fatigue  test  procedure  has  not  been 
established,  a  test  procedure  has  been  previously  devised  and 
used  at  AiResearch  for  a  comparison  of  the  relative  thermal- 
fatigue  characteristics  of  several  materials.  The  data  from 
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the  tests  provides  a  qualitative  assessment  of  material  life 
when  compared  to  a  reference  material  (e.g.,  Hastelloy  X) , 
even  though  it  cannot  be  directly  translated  to  combustor  life. 

The  test  apparatus  consists  of  an  automatic  indexing  mechanism 
that  can  cycle  test  specimens  between  an  oxyacetylene  flame 
and  an  ambient-air  jet.  The  geometry  of  the  test  specimen 
(shown  in  Figure  12)  allows  for  minimum  mechanical  constraint, 
and  therefore  the  induced  stresses  are  totally  caused  by  the 
thermal  gradients  generated  during  cycling. 

Views  of  the  test-rig  setup  are  shown  in  Figure  13,  with  a 
specimen  both  in  and  out  of  the  flame. 

The  maximum  metal  temperature  was  1800°F  as  measured  by  a 
surface  thermocouple  installed  adjacent  to  the  center  hole. 
Thermal  cycling  of  the  samples  was  completed  with  a  cycle  time 
of  5  seconds  in  the  flame  and  10  seconds  in  the  ambient-air 
jet.  The  first  sample  of  each  material  was  inspected  every  25 
cycles  for  cracks.  Subsequent  samples  were  run  initially  until 
the  number  of  cycles  equaled  the  number  accumulated  on  the 
first  sample  before  cracking.  Subsequent  inspections  of  these 
additional  specimens  were  then  made  at  intervals  of  10  cycles 
to  establish  the  number  of  cycles  required  to  initiate  a  crack. 
Each  specimen  was  then  subjected  to  an  additional  50  cycles  to 
evaluate  crack  propagation. 

3.2.3  Corrosion 

Oxidation  testing  was  accomplished  by  placing  duplicate  speci¬ 
mens  in  a  furnace  at  1800 °F  for  150  hours.  Air  circulation  was 
achieved  by  natural  circulation  through  an  open  furnace.  Both 
sets  of  samples  were  evaluated  by  weight  changes,  and  one  set 
was  mounted  for  metal lographic  examination. 

Test  specimens  for  the  sulfidation  corrosion  test  were  placed 
in  a  silica  retort  mounted  in  a  resistance-heated  furnace.  The 
retort  was  heated  to  1800 °F  prior  to  loading.  Initially,  the 
specimens  were  exposed  for  10  minutes  in  a  reducing  atmosphere 
of  76.7  percent  N2,  20.5  percent  C02,  and  2.83  percent  H2S  with 

1  ppm  NaCl.  The  balance  of  the  atmosphere  was  N2  saturated 
with  water  at  room  temperature. 

The  two-cycle  procedure  closely  simulates  a  gas  turbine  start, 
H2S  being  found  in  the  oxygen-starved,  initial  combustion  pro¬ 
ducts  and  SO2  during  continuous,  or  oxygen-rich,  operation. 

The  1  ppm  of  NaCl  simulates  operating  in  a  marine  environment. 
After  the  test  cycles,  the  specimens  were  removed  and  the 
corrosion  products  were  cleaned  from  the  surface  on  one  set  of 
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Figure  12.  Thermal  Fatigue  Test  Specimen  Geometry 
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samples.  The  evaluation  was  made  on  the  basis  of  weight  loss 
in  milligrams  per  initial  unit  surface  area.  The  duplicate 
samples  were  examined  by  metallography  to  evaluate  the  depth 
of  attack. 

3.2.4  Fabricsbility 

Fabrication  studies  were  limited  to  the  IN-586  and  the  Rigimesh 
material.  These  consisted  primarily  of  weldability  and  weld 
ductility  evaluations.  The  fabricability  of  the  other  candi¬ 
date  materials  is  well  documented,  including  the  difficulties 
involved  in  handling  the  dispersion-strengthened  alloys.  It 
was  not  considered  necessary  to  confirm  this  data. 

3.3  SCREENING  TEST  RESULTS 

The  screening  test  results  are  summarized  as  follows: 

(a)  Tensile  Property  -  TD  Ni-Cr  was  rated  superior  both 
on  an  absolute  strength  level  and  on  retention  of 
properties  after  exposure.  IN-586,  Haynes  188, 
and  Hastelloy  X  rated  slightly  lower  due  to  the 
lower  strength  levels.  AiResist  213  was  rated 
lower  because  of  failure  to  meet  published 
properties . 

(b)  Stress  Rupture  -  TD  Ni-Cr  and  Haynes  188  were  rated 
superior;  IN-586  and  Hastelloy  X  were  only  slightly 
lower.  AiResist  213  was  rated  the  lowest  of  the 
sheet  metal  alloys. 

(c)  Thermal  Fatigue  -  IN-586  was  rated  superior, 

AiResist  213  second,  and  TD  Ni-Cr  third,  due  to 
inconsistency  of  results.  Haynes  188  was  rated 
only  slightly  better  than  Hastelloy  X.  The  com¬ 
posite  structure  (Rokide-Z -coated  Rigimesh  wire) 
does  show  promise.  In  the  range  of  0.020-  to 

0 .040 -inch- thick  material,  no  correction  was  re¬ 
quired. 

(d)  Oxidation  -  AiResist  213,  Haynes  188,  IN-586,  and 
TD  Ni-Cr  showed  equivalent  resistance  to  oxidation. 
All  were  rated  slightly  better  than  Hastelloy  X. 
Rokide-Z-coated  Rigimesh  was  rated  very  poor. 

(e)  Sulfidation  -  AiResist  213  was  rated  superior, 

IN-586  second,  and  Haynes  188  third,  bordering  on 
unacceptable.  TD  Ni-Cr  and  Hastelloy  X  were  rated 
unacceptable . 
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(f)  Fabricability  -  Both  IN-586  and  L605  Rigimesh  with 
Rokide-Z  coating  were  easily  welded  with  the  use  of 
both  the  tungsten-inert-gas  and  resistance  welding 
techniques.  The  weld  duct-lity  was  good. 

A  numerical  method  of  rating  the  sample  materials  would  be 
highly  arbitrary  and  was  not  attempued.  The  Rokide-Z-coated 
Rigimesh  was  eliminated  due  to  oxidation  of  the  L605  wire 
structure.  Some  development  work  could  make  this  a  workable 
structure.  Haynes  188  did  show  some  improvement  over 
Hastelloy  X  but  did  not  rate  as  high  as  other  candidate  alloys 
in  the  tests,  primarily  because  of  thermax  fatigue  and  sulfi¬ 
dation.  The  TD  Ni-Cr  rated  higher  than  the  Haynes  188  alloy 
in  most  tests  but  was  very  poor  in  sulfidation  resistance. 

Materials  that  compared  closely  were  the  AiResist  213  and  the 
IN-586.  IN-586  was  selected  due  mainly  to  the  excellent 

tnermal-fatigue  resistance  of  the  alloy  and  its  ease  of 
fabrication.  Also,  the  actual  strength  of  the  IN-586  appeared 
to  be  higher  at  elevated  temperatures  than  the  AiResist  213. 

3.4  IN-586  PROPERTY  TESTS 

From  the  screening  test  results,  it  was  concluded  that  IN-586 
is  well  suited  for  a  combustor  application.  However,  since 
the  material  is  relatively  new  (International  Nickel,  1968) , 
and  therefore  only  limited  published  data  is  available,3  a 
series  of  material  property  tests  was  conducted  to  provide 
more  information  on  the  alloy  and  to  define  guidelines  for 
combustor  design  and  fabrication. 

Additional  tensile  tests  were  conducted  so  that  the  effect  of 
temperature  on  the  properties  could  be  more  fully  evaluated. 
The  added  stress-rupture  tests  included  creep  measurements  so 
that  a  family  of  parametric  curves  could  be  drawn  for  several 
creep  extensions  and  rupture  life.  Low-cycle-fatigue  data  was 
also  generated,  with  comparative  specimens  of  Hastelloy  X  and 
Haynes  188.  Tensile  specimens  of  both  fusion-butt  welds  and 
lap-seam  welds  were  tested  in  both  the  as-welded  and  the  heat- 
treated  condition. 

The  property  data  (curves  and  tables)  presented  in  the  follow¬ 
ing  paragraphs  also  includes  published  and  screening  test  data 
for  IN-586.  Although  some  scatter  was  noted  in  the  tests,  the 
aata  agreed  well  with  published  data  for  the  alloy. 

3.4.1  Tensile  Tests 

Tensile  tests  were  conducted  with  metal  temperatures  in  the 
range  of  800°F  to  2000 °F  in  accordance  with  ASTM  Test  Method 
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E8.  The  data  for  0.2-percent  yield  strength  versus  temperature 
is  presented  in  Figure  14.  Lines  drawn  indicate  the  approxi¬ 
mate  envelope  of  test  data.  Note  that  the  data  from  the  speci¬ 
mens  exposed  to  air  at  1800°F  for  100  hours  (Screening  Tests, 
Section  3.2)  compares  well  with  the  unexposed  specimen  data, 
confirming  the  thermal  stability  of  IN-586. 

3.4.2  Creep-Rupture  Tests 

The  ''reep-rupture  tests  were  conducted  in  accordance  with  ASTM 
Test  Method  E139.  The  0.5-percent  and  1.0-percent  creep- 
rupture  data  is  presented  in  Figure  15;  the  stress-rupture 
#  data  is  presented  in  Figure  16.  .  A  curve  fitting  computer 

program  was  used  to  obtain  both  the  average  and  the  3-sigma 
minimum  design  curve. 

3.4.3  Low-Cycle-Fatigue  Tests 

The  specimen  was  resistance-heated  to  1600 °F  in  the  gauge 
section.  The  test  was  conducted  using  load  control,  with 
the  strain  being  continuously  monitored.  The  A-ratio  was  main¬ 
tained  at  less  than  1.0  so  that  compressive  strain  would  be 
avoided.  The  cyclic  rate  was  30  cpm,  and  data  for  load  versus 
time,  axial  strain  versus  load,  axial  strain  versus  time,  and 
lateral  deflection  versus  time  was  developed.  Figure  17 
graphically  shows  the  low-cycle-fatigue  data  obtained  for 
IN-586,  Hastelloy  X,  and  Haynes  Alloy  188.  The  superiority  of 
IN-586  is  clearly  evident. 

3.4.4  Fabricability  Tests 

Fusion-butt  and  lap-seam  welds  were  made  and  samples  machined 
to  evaluate  the  tensile  strength.  The  welds  were  tested  in 
both  the  as-welded  and  the  stress-relieved  condition.  The 
data  is  presented  in  Table  IV.  The  butt  weld  flash  was  ground 
to  the  approximate  thickness  of  the  sheet  to  make  the  test  more 
severe.  Filler  material  used  in  making  the  welds  was  sheared 
from  the  edges  of  the  sheet  alloy. 

The  welded  strengths  presented  in  the  table  may  be  clouded  by 
the  scatter  in  tensile  data  noted  below  1600°F.  The  elevated- 
*■  temperature  tests  were  performed  at  1300 °F,  as  the  tensile 

curve  began  dropping  at  this  point.  The  data  indicates  that 
the  material  may  be  better  used  in  the  as-welded  condition 
than  stress-relieved,  and  that  weld  repair  should  present  no 
particular  difficulties  on  new  or  engine-run  combustors. 
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Figure  17.  Low-Cycle-Fatigue  Data  for 
Hastelloy  X,  and  Haynes  18 


TABLE  IV.  WELD  STRENGTH  DATA  FOR  IN-586 


Weld  Type 

Condition 

Test  Temp 
( °F) 

Butt  Fusion-Group  I 

As  welded 

Room  Temp 

Butt  Fusion-Group  11 

Stress- 

relieved 

Room  Temp 

Butt  Fusion-Group  III 

Stress- 

relieved 

Room  Temp 

Butt  Fusion-Group  IV 

Stress- 

relieved 

1300 

Lap  -  Seam 

As  welded 

Room  Temp 

Lap  -  Seam 

Stress- 

relieved 

Room  Temp 

Lap  -  Seam 

Stress- 

relieved 

1300 

Strength 


timate  Averagi 
(ksi)  (ksi) 


NOTES:  1.  SPECIMENS  WERE  WELDED  IN  3-INCH-WIDE  SHEETS 

AND  CUT  FOR  TENSILE  TESTS. 

2.  STRESS-RELIEF  CYCLE  WAS  2100°F  FOR  15  MINUTES. 


36 


i 


Comparison  of  the  measured  design  property  levels  of  IN-586 
with  previously  published  data  indicates  better  tensile 
strength  them  published  properties,  with  some  scatter  at  tem¬ 
peratures  below  1600°F.  The  creep-rupture  tests  confirm  the 
strength  and  the  oxidation  resistance  of  the  alloy  and  agree 
well  with  the  published  data.  The  low-cycle- fatigue  tests 
showed  that  the  material  can  be  used  with  more  confidence  than 
Hastelloy  X,  and  possibly  Haynes  188. 


NOTE 


IN-586  is  not  produced  commercially  in 
the  United  States  at  this  time  (the 
material  used  for  this  program  was  pro¬ 
vided  at  no  charge  by  International 
Nickel  Company  of  England) .  A  local 
sales  representative  for  INCO  said 
that  IN-617  has  similar  properties  and 
is  available  in  the  United  States.  He 
also  said  that  IN-586  would  be  made 
available  if  the  marketing  demands  were 
sufficient. 
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4.0  FUEL  INJECTION 


The  fuel-injector  design  requirements  are  primarily  dictated 
by  the  following: 

o  Fuel-flow  range 

o  Requirement  to  pass  fuel  contaminated  per 

MIL-E-5007C 

o  Combustor  chamber  design  interface  requirements 

Maximum  fuel  flow  was  determined  from  the  cycle  analysis, 
shown  in  Table  II  of  Section  2.0,  to  be  280.9  pounds  per 
hour  at  the  design  point.  For  typical  gas  turbine  applica¬ 
tions  a  reasonable  minimum  fuel  flow  is  8  to  10  percent  of 
this  value  (23.0  pounds  per  hour) .  Experience  indicates  that 
to  pass  the  MIL-E-5007C  contamination  requirements,  all  inter¬ 
nal  fuel  flow  passages  should  be  larger  than  0.030  inch. 

Injector  types  that  were  selected  for  analysis  included: 
o  Air-assist  atomizer 

o  L-pipe  vaporizer 

o  Pneumatic-impact  atomizer 

4.1  AIR-ASSIST  ATOMIZER 

One  of  the  most  conventional  combustor  fuel  injection  systems 
is  the  pressure  atomizer  type  in  which  fuel  is  forced,  under 
pressure,  through  a  swirl  chamber  and  small  orifice  to  achieve 
atomization.  Either  one  (simplex)  or  two  (dual)  orifices 
can  be  used,  depending  on  the  range  of  fuel  flow  (turndown 
ratio)  required.  For  an  air-assist  atomizer,  shown  schematic¬ 
ally  in  Figure  18,  a  small  quantity  of  air. is  used  to  improve 
atomization  and  control  the  spray  angle  and  also  to  cool  and 
clean  the  injector. 

The  analyses  described  below  were  generally  derived  for  a 
simplex  atomizer  with  air  assist  (shown  in  Figure  19) ,  but  they 
are  also  applicable  to  a  dual-orifice  nozzle.  A  brief  descrip¬ 
tion  of  the  air-assist  pressure  atomizer  computer  program  is 
presented  in  Appendix  I. 

4.1.1  Model  Definition 

The  following  equations,  assumptions,  and  references  were 
used  to  develop  the  initial  atomizer  analytical  model. 


Fuel  droplet  atomization  is  characterized  by  Sauter  mean 
diameter  (SMD)  defined  as  the  size  of  a  droplet  which  has 
surface  to  volume  ratio  equal  to  that  of  the  collection  of 

4 

the  droplets.  From  Frazer, 

SMD  (microns)  «  220  (Wf )  0  * 209 (v) 0  * 215 (APf ) “° *485  (5) 

where  =  fuel  flow  rate  per  nozzle,  lb  per  hr 

v  =  fuel  viscosity,  centistokes 
AP^  =  differential  fuel  pressure,  psid 

The  fuel  flow  and  pressure  drop  are  related  for  a  given  atom¬ 
izer  by  a  constant  flow  number  (FN)  where 

Wf 

FN  =  — -  (6) 

/AP^ 

The  atomized  droplet  size  distributions  with  and  without  air- 
assist  were  computed  and  are  shown  in  Table  V. 


TABLE  V.  DROPLET  SIZE  DISTRIBUTIONS 

Volume  Percent  of  Spray 

0-20 

20-40 

40-60 

60-80 

80-100 

Size  ratio  (D/SMD) 
with  air-assist 
atomizer 

0.38 

1.00 

1.37 

1.80 

2.40 

Size  ratio  (D/SMD) 
without  air-assist 
atomizer 

0.77 

1.05 

1.23 

1.45 

1.75 

For  a  dual-orifice  atomizer  an  energy  equation  was  used  to 
obtain  an  effective  atomizer  pressure  drop  for  use  in 
Equation  (5).  Thus, 


AP 


effective 


<iPPWfP  +  iPSWfS,/(WfP  +  WfS> 


(7) 


where  subscripts  P  and  S  refer  to  primary  and  secondary  fuel 
orifices,  respectively. 

Droplet  trajectories  were  calculated  based  on  the  following 
assumptions : 

(a)  Coefficient  of  drag,  C^,  is  27  Rn  (from 

Ingebo) . ^ 

(b)  Atomizer  velocity  coefficient,  Cv,  is  1.0. 

(c)  Droplets  are  atomized  exactly  at  the  atomizer  exit. 

(d)  Droplets  leave  the  atomizer  at  the  atomizer  cone 
angle  with  no  dispersion. 

(e)  Droplets  do  not  interfere  with  each  other. 

(f)  Ambient  pressure  level  and  fuel  flow  do  not 
change  the  droplet  distribution. 

In  the  trajectory  calculations,  velocity  triangles  determine 
the  relative  droplet -air  velocity  at  a  particular  location. 

The  relative  velocity  then  determines  the  Reynolds  number  from 
which  the  drag  and  the  droplet  acceleration  are  calculated. 
When  the  droplet  acceleration  is  in  a  different  direction 
from  the  relative  velocity  vector,  the  droplet  velocity  can 
be  calculated  at  some  small  increment  of  distance  from  a 
given  station.  Then,  provided  that  the  distance  increment  is 
made  small  enough,  an  accurate  droplet  trajectory  can  be  cal¬ 
culated. 

Droplet  evaporation  is  based  on  the  empirical  relations  by 
Priem  and  Heidman.^ 


Mass  transfer,  Nu, 


where 


to  ‘  r  w,w  £ 
Rn  =  Reynolds  number 
Pr  =  Prandtl  number 
Sc  =  Schmidt  number 
Nu  =  Nusselt  number 


^Rn1/2 

(8) 

^Rn1/2 

(9) 
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In  the  calculation,  the  droplet  temperature  stabilizes  at  the 
"wet  bulb"  temperature,  after  which  all  heat  input  results  in 
evaporation  of  some  liquid  fuel  and  progressive  reduction  of 
droplet  mass. 


Reynolds,  Prandtl,  and  Schmidt  numbers  are  calculated  for  gas- 
vapor  properties  at  averaged  temperatures  and  composition. 

The  average  temperature  is  taken  as  1/2  (T  .  +  T_  .); 

dir  lUGl 

the  average  composition  uses  fuel-vapor  pressure  and  air 
pressure  to  obtain  the  boundary  properties  from  the  properties 
for  air  and  for  fuel  vapor.  For  fuel  vapor  and  air,  the 
properties  of  interest  are  thermal  conductivity,  viscosity, 
specific  heat,  molecular  weight,  density  and  binary  diffusiv- 
ity;  whereas  for  liquid  fuel  they  are  vapor  pressure,  specific 
heat,  density  and  latent  heat  of  vaporization.  These  proper¬ 
ties  were  obtained  from  Nelson, ^  Wallmer,®  Gladden,9 
Barnett, I®  Roberts, H  Maxwell,  1^  and  Nixon. H 


Droplet  trajectories  (Figure  20)  were  calculated  for  water 
atomization  with  the  atomizer  used  by  Mellor.14  Good  agree¬ 
ment  was  found  to  exist  between  the  experimental  and  the  cal¬ 
culated  trajectories.  Calculations  of  fuel  droplet  trajecto¬ 
ries  (JP-4)  are  shown  in  Figure  21.  Figure  22  shows  calculated 
fuel  penetration  as  a  function  of  ambient  temperature  and 
pressure . 


Equation  (5)  for  SMD  does  not  include  any  effect  of  improved 
atomization  by  air  assist.  The  Parker-Hannif in  Corporation, 
Accessories  Division,  was  consulted  to  determine  a  technique 
to  account  for  the  effect  of  the  air.  As  a  result  of  their 
suggestion,  an  effective  fuel  pressure,  based  on  a  kinetic 
energy  equivalence  of  the  airflow,  was  determined: 


AP  = 
e 


360°  APair  Walr  4  APfWf 
3600  Wair  +  Wf 


(10) 


where 


AP  = 


AP 

air 

W  . 
air- 


effective  differential  pressure,  psid 
airflow  differential  pressure,  psid 
shroud  airflow,  lb  per  sec 


% 
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Figure  21. 


Calculated  Simplex  Trajectories 
Without  Air  Assist. 
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The  shroud  airflow  is  calculated  from 


♦ 


<■ 


Wair  "  1*098  As 


/ap  .  P  . 
\  air  comb 

Tair 


(ID 


where 


A  =  shroud  flow  area,  sq  in.. 

b 

Pcomb  =  COInbustor  internal  pressure,  psia 


air 


combustor  inlet  air  temperature,  °R 


4.1.2  Atomizer  Spray  Tests 


The  air-assist  fuel  atomizer  was  tested  (a)  by  Parker-Hannif in 
under  subcontract  to  obtain  spray  characteristics  and  (b)  in  a 
fuel-injection  rig  to  determine  spray  envelope  under  varying 
conditions  of  air  velocity,  air  temperature,  air  pressure,  and 
fuel  flow  rates.  The  test  results  were  then  used  to  update 
the  analytical  models. 


4. 1.2.1  Spray  Characteristics 

Calibration  testing  by  Parker-Hannif in  consisted  of  sampling 
radial  droplet  distributions  in  two  lines,  at  right  angles, 
through  the  spray  axis,  at  a  distance  of  1  inch  from  the  spray 
origin.  Drop  sizes  are  classified  in  approximately  nine  size 
groups.  Data  includes  the  number  of  drops  counted,  the  rela¬ 
tive  volume  of  fuel  in  each  size  group,  local  SMD  at  each  0.1- 
inch  radius,  the  overall  SMD,  and  the  mass  median  diameter 
(MMD) .  The  significance  of  MMD  is  that  one-half  of  the  fuel 
volume  is  contained  in  droplets  less  than  the  MMD,  whereas 
the  ratio  of  SMD  to  MMD  is  a  measure  of  droplet  uniformity. 


Test  conditions  and  experimentally  determined  SMD  values  are 
shown  in  Table  VI.  Values  calculated  from  Equation  (5)  and 
including  the  effect  of  air  are  shown  in  Row  1.  Because  poor 
correlations  were  obtained,  additiona.1  consultation  with 
Parker-Hannif in  was  necessary,  which  resulted  in  a  revised 
equation  for  prediction  of  drop  size  from  simplex  atomizers 
without  assist  airflow.  The  revised  relation  is 


SMD 


225 


(y  0,205  (A0-3 

(APf)  O*354^1*5/ 


(12) 


This  relation  was  developed  from  extensive  data  accumulated 
with  the  Parker -Hannifin  measurement  system  on  a  variety  of 
injectors.  Compared  with  the  previously  presented  relation. 
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Equation  (5) ,  the  revised  relation  shows  a  greater  effect  of 
fuel  viscosity  with  the  exponent  increased  from  0.215  to  0.3. 
The  effect  of  fuel  differential  pressure  is  reduced.  The 
overall  relation  resulted  in  drop  sizes  on  the  order  of  twice 
the  previous  relation,  shown  in  Row  2,  Table  VI. 


TABLE  VI.  AIR-ASSIST  ATOMIZER  DkOPLET-SIZE  TEST  RESULTS 


Test  Point 

Parameter 

1 

2 

3 

4 

5 

Fuel  flow,  lb/hr 

35.2 

10 

10 

3.6 

1.7 

Air  pressure,  psia 

G 

10 

10 

10 

35 

Fuel  viscosity,  CS 

12 

1.17 

12 

12 

12 

Fuel  pressure ,  psig 

211 

18 

17 

2.5 

0.95 

Airflow  rate,  lb/hr 

0 

0.515 

0.495 

0.585 

0.914 

SMD,  microns 

164 

150 

187 

150 

107 

MMD,  microns 

216 

164 

222 

179 

119 

Row  1  -  Predicted  SMD 
(ori  ginal) 

-  with  air 
effect 

(Eq.  5  +  Eq.  10) 

58,9 

98 

167 

274 

129 

Row  2  -  Revised  Predicted 
SMD  -  without  air 
effect 
(Eq.  12) 

131 

120 

242 

395 

475 

Row  3  -  Revised  predicted 
SMD  -  with  air 
effect 

(Eq.  12  +  Eq.  10) 

131 

121 

-1 

244 

348 

190 

Row  4  -  Final  updated  SMD 
-  predictions 
(Eq.  13  +  14  +  15] 

- 

I 

148 

184 

153 

105 

The  revised  predictions  including  the  effect  of  assist  air 
^re  shown  in  Row  3.  The  revised  prediction  of  131  microns 
without  air  assist  (Test  Point  1)  is  within  20  percent  of  the 
measured  164  microns.  Parker-Hannifin  stated  that  20  percent 
is  the  best  level  of  agreement  that  could  be  expected,  but 


» 


* 


* 


could  not  present  any  specific  improved  ...rrelation  for  the 
effect  of  assist  air.  It  was  therefore  concluded  that  the 
air-assist  correction  factor  based  on  a  calculated  effective 
differential  pressure  was  invalid. 

An  alternate  procedure  was  developed  with  the  use  of  the  basic 

relation  derived  by  Fraser^  for  the  breakup  of  a  liquid 
sheet  into  ligaments  and  then  droplets: 

SMD  =  196  vk  las  (13) 

VpgVe 


where  a  =  fuel  surface  tension,  dynes  per  cm 

Pg  =  gas  density,  lb  per  cu  ft 

V  =  effective  gas  velocity,  ft  per  sec 

k  =  viscosity  exponent 

s  =  fuel  sheet  thickness,  microns 

Fuel  sheet  thickness  ,s,  is  obtained  from  Giffen1^  by 

3.359  FN 

s  =  - 

Dq  /p~T  (cos  a/2) 


where 


(14) 


FN  =  atomizer  flow  number 


Dq  =  atomizer  exit  orifice  diameter,  in. 

a  =  spray  angle,  deg 

pf  =  fuel  density,  lb  per  cu  ft 

The  effective  gas  velocity  is  the  root-mean-square  value  of 
the  relative  velocities  on  either  side  of  the  sheet  in  the 
sheet  breakup  region.  This  velocity  is  some  fraction  of  the 
air  velocity  at  the  discharge  of  the  air-assist  slots.  The 
following  relation,  an  extension  of  that  used  by  Fraser,  was 
found  to  correlate  the  data: 

Ve  =  0.4  38  (Wa/Wf)0,1  Va  |0 . 5  +  (Vf/Vft)  2  -  vf/va]  <15> 
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where  =  assist-air  mass  flow,  lb  per  hr 

V  =  assist-air  shroud  discharge  velocity,  ft  per  sec 

=  fuel  sheet  velocity,  ft  per  sec 

Air  and  fuel  velocities  are  computed  by  assuming  complete  con¬ 
version  of  pressure  differential  head  to  kinetic  energy. 

Equations  (14)  and  (15'  ,  together  with  a  viscosity  exponent,  k, 
of  0.095,  when  used  in  uq^ation  (13)  ,  predict  measured  drop 
sizes  within  2  percent  (Row  4,  Table  VI). 

Drop-size  distribution  data  was  analyzed  and  found  to  be 
correlated,  as  shown  in  Figure  23,  on  the  basis  of  the  square 
root  of  the  ratio  of  drop  size  to  MMD  as  a  function  of  cumu¬ 
lative  volume. 

The  ratio  of  SMD  to  MMD  was  found  to  be  0.85.  Little  differ¬ 
ence  is  observed  between  the  distribution  with  and  without 
the  assist  air.  This  data  was  used  to  correct  the  distribu¬ 
tion  size  ratios  in  the  analytical  prediction  method  for  the 
five  drop  classes  given  in  Section  4.1.1. 

4 . 1 . 2 . 2  Spray  Envelope  Tests 

The  air-assist  atomizer  was  tested  in  the  fuel-injection  rig 
to  determine  the  spray  envelope  characteristics.  The  test 
section  (Figure  24)  was  an  8-inch-diameter  pipe  with  Plexiglas 
viewing  windows  arranged  in  such  a  way  that  at  atmospheric 
pressure  the  spray  envelope  could  be  observed.  At  higher 
pressures,  steel  plates  replaced  the  Plexiglas  windows.  Two 
fuel  tube  bosses  were  provided  at  different  axial  locations; 
and  through  these  bosses,  nozzle  support  stands  could  be  in¬ 
serted  so  that  the  fuel  nozzle  was  positioned  on  the  test  sec¬ 
tion  centerline.  Spray  envelope  location  was  determined  by 
means  of  a  movable  thermocouple  traversed  through  instrumen¬ 
tation  ports  located  along  the  length  of  the  test  section  at 
3/16-inch  spacing. 

Testing  was  conducted  at  24  test  combinations  of  duct  air 

velocity,  pressure,  temperature,  and  fuel  flow:  * 

o  Air  velocities  ranged  from  8  to  500  feet  per  second. 

o  Air  temperatures  ranged  from  130°  to  400°F.  t 

o  Air  pressures  ranged  from  1  to  16  atmospheres. 

o  Fuel  flows  ranged  from  10  to  35  pounds  per  hour. 
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40  HOLES  IFOR  PROBE  INSERTION 


Figure  24.  Fuel-Injection  Element  Test  Rig 


The  thermocouple  probe  traverses  were  made  at  axial  distances 
of  0.54,  1.2,  1.9,  2.6,  3.3,  and  4.3  inches  from  the  face  of 
the  at<"  nizer.  Observation  of  the  fuel  discharge  was  made  with 
the  probe  just  entering  the  spray  cone;  at  this  point,  the 
probe  reading  also  indicated  fuel  contact.  Similarly,  as  the 
probe  was  observed  to  pass  out  of  the  cone  on  the  far  side, 
the  probe  output  again  indicated  the  cone  boundary.  This  veri¬ 
fied  the  feasibility  of  the  experimental  procedure. 

Figure  25  shows  a  plot  of  temperature  profiles  typical  of 
those  obtained  while  testing.  The  plot  is  made  in  a  manner 
that  allows  visualization  of  the  trajectory.  Each  profile 
curve  represents  the  differential  temperature  referenced  to 
the  inlet  air  temperature.  A  reference  air-temperature  line 
for  each  profile  is  located  a  distance  from  the  spray  origin 
equal  to  the  actual  traverse  position  distance  from  the  spray 
origin.  The  differential  temperatures  for  each  profile  are 
then  plotted  relative  to  the  particular  reference  line. 

Included  on  this  plot  are  the  initial  spray  trajectory  pre¬ 
dictions.  As  expected,  the  smaller  droplets  are  more  rapidly 
deflected  than  the  larger  droplets;  the  experimental  data, 
however,  shows  more  deflection  than  predicted. 

The  updated  drop-size  correlation  (SMD)  was  incorporated  in 
the  fuel-injection  model,  and  this  model  was  used  to  compute 
droplet  trajectories  for  the  test  conditions.  Typical  com¬ 
parisons  between  experim  ;ntal  and  analytical  trajectories  are 
shown  by  the  solid  lines  in  Figure  26.  The  experimental  noz¬ 
zle  spray  cone  angle  was  specified  as  being  between  75  and  90 
degrees.  An  initial  specific  angle  of  85  degrees  was  used  in 
the  predictions.  As  shown  in  26(a)  and  (c) ,  the  experimental 
data  within  1.5  inches  of  the  apex  indicated  a  spray  angle 
somewhat  greater  than  this  value  and  the  analytical  predic¬ 
tions  of  inner  and  outer  droplet  boundaries.  Figure  26(b) 
shows  a  comparison  of  predicted  trajectories  with  cone  angles 
of  85  and  100  degrees.  The  100-degree  spray  angle  gave  good 
correlation  for  the  outer  boundary  (large  droplets)  up  to 
approximately  1.5  inches  of  penetration,  but  the  inner  bound¬ 
ary  (small  droplets)  did  not  correlate  as  well. 

Possible  reasons  for  the  limited  correlation  between  the  ex¬ 
perimental  and  predicted  trajectories  are: 

o  Disruption  of  the  airflow  around  the  nozzle  and  noz¬ 
zle  support  within  the  tunnel — i.e.,  experimental 
error . 
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MEASURED  DIFFERENTIAL 


Figure  25.  Fuel-injection  Rig  Temperature  Profiles. 


c  Droplets  smaller  than  those  accounted  for  are 

formed  and  rapidly  deflected,  forming  the  inner 
cone  boundary — i.e.,  SMD  prediction  error. 

o  Aerodynamic  shattering  of  droplets — i.e.,  assumption 
error. 

o  Interaction  of  individual  droplets  in  the  spray — 
i.e.,  assumption  error. 

o  Oversimplification  of  the  drag  coefficient  expres¬ 
sion. 


A  more  rigorous  mathematical  model  for  predicting  spray  tra¬ 
jectories  should  include  the  effect  of  particle  interaction  as 
well  as  laws  of  nucleation  (mostly  heterogeneous) ,  droplet 
growth,  and  disappearance  due  to  evaporation  and  aerodynamic 
shattering.  Each  discrete  droplet  size  trajectory  can  be 
described  by  a  partial  differential  equation  of  the  hydrody¬ 
namic  flow  type  with  terms  for  convective  transport,  diffusive 
transport,  generation,  and  destruction  of  droplets.  The  pres¬ 
ent  spray- trajectory  prediction  procedure  takes  into  account 
only  acceleration  due  to  aerodynamic  drag  and  fuel  evapora¬ 
tion;  thus,  for  complete  prediction  of  spray  trajectories, 
further  modifications  to  the  prerent  prediction  procedure 
would  be  required.  Since  the  main  interest  is  only  in  the 
first  2-inch-downstream  region,  this  approach  was  not  pursued. 


The  empirical  drag  coefficient  used  in  the  predictions  is 
given  by 

Cd  =  18.5/(Rn) 0,5  (16) 


where  Reynolds  number,  Rn,  is  based  upon  relative  velocity 
between  droplet  and  air  tream,  and  droplet  diameter.  Consid- 

.  17 

eration  of  experimental  work  reported  by  Eisenklam  indi¬ 
cates  that  more  realistic  coefficients  may  be  available. 

18 

Their  results  and  recent  work  reported  by  Natrajan  show 
that  drag  coefficient  (C,)  of  a  burning  or  evaporating  droplet 
can  be  correlated  by 


C 


d 


(17) 


where 


B 


drag  coefficient  of  a  sphere  in  uniform 
flow  evaluated  at  meai  conditions 

mass  transfer  number 


* 


% 
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The  mass  transfer  numbers  with  evaporation  and  combustion 
(BeVap  and  BComb'  resPect*vely)  are  given  by 


B 


evap 


=  c 


(Tamb-V/QL 


(18) 


B 


comb 


c  [(T  , -T  )+M. 

p  amb  w  0, 


qc/s]/ql 


(19) 


where 


0^  =  ambient  gas  specific  heat 

Tamb  =  ambient  gas  temperature 

T  =  droplet  surface  temperature  (eaual 

to  wet  bulb  temperature  for  evaporating 
drops  and  boiling-point  temperature  for 
burning  drops) 

M  =  oxygen  concentration  in  the  surrounding 
°2  gas 

Qc  =  heat  of  combustion  of  fuel 
S  =  stoichiometric  ratio  of 

Qt  =  latent  heat  of  evaporation 

ll 
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From  Streeter,  C,  was  calculated  by  the  following  ex¬ 
pressions:  ' 


cd,3  -  SE  +  V16  Hn) 


0  <Rn  <  0.5 


24  3.54 

Rn  Rn  0.345 


0.5  <Rn  <  10.0 


(20) 


r  =  24  3.09 

d,s  Rn  Rn  0.314 


Rn  >  10 


A  typical  value  of  B  for  the  experimental  cases  that  were  run 
is  0.1;  consequently,  the  effect  of  evaporation  on  drag 
coefficient  reduction  was  insignificant. 

A  comparison  of  trajectories  calculated  with  use  of  Equations 
(16)  and  (17)  showed  that  spray  penetration  with  given  by 

the  latter  equation  was  slightly  less  than  that  given  by  the 
former. 
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With  regard  to  droplet  shattering,  the  breakup  of  a  spherical 
droplet  injected  into  a  high-speed  stream  can  take  place  due 
to  a  combination  of  forces  of  pressures  and  surface  tension. 

When  aerodynamic  force  exceeds  the  force  of  surface  tension, 
the  large  droplets  (those  having  a  diameter  greater  than  a 
"critical"  diameter)  will  shatter.  This  critical  diameter 
(d  ^)  is  determined  by 


^crit  —5-  (21) 

U 

where  K  =  function  of  fuel  viscosity,  density,  and 

20 

droplet  size  as  correlated  by  Lane  and 

„  21 
Hanson 

U  =  velocity  c  f  air  relative  to  che  droplet 

For  the  case  shown  in  Figure  26(a),  the  critical  diameter  is 
120  microns,  whereas  the  outer  boundary  of  the  trajectory  is 
calculated  with  droplet  size  equal  to  134  microns.  Therefore, 
it  appears  that  in  the  downstream  region,  poor  correlation 
between  theory  and  experiment  can  be  explained  to  some  extent 
in  terms  of  the  breakup  process  of  the  droplet.  It  is  possi¬ 
ble  to  calculate  equilibrium  droplet  diameter  and  breakup 

22 

time  required  by  using  a  formulation  from  Taylor, 

23  24 

Valentas,  and  Karam. 

Aerodynamic  shattering  of  droplets  can  also  be  expressed  in 
terms  of  two  dimensionless  groups: 

We  =  p  U2d/o  (22) 

and 

V.  =  —  (23) 

/p^d  a 


where  We  =  Weber  number 

=  viscosity  number 
v  =  fuel  liquid  viscosity 

The  greater  the  Weber  number,  the  greater  the  deformation  of 
the  droplet,  until  at  a  critical  Weber  number,  We  ... ,  breakup 

25  ^ ^ 1 t 

of  the  droplet  occurs.  According  to  Hinze,  for  an  inviscid 


% 


f 


* 
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steady  flow.  We  "  13.  For  viscous  fluids,  it  can  be  expressed 
as 

W6c  =  f (V. )  (24) 

We 

From  Eisenklam26  for  the  case  shown  in  Figure  26(a) ,  the 
critical  diameter  is  again  about  120  microns. 

4.1.3  Conclusions 

Based  on  analysis  of  the  data  and  correlations,  the  following 
conclusions  were  reached: 

(a)  The  updated  model  for  predicting  Sauter  mean 
diameters  gives  good  correlation  with  the  experi¬ 
mental  data  for  the  particular  nozzle  tested. 

(b)  Within  the  limits  of  the  assumptions  and  errors 
outlined  in  4. 1.2. 2,  spray  envelope  trajectories 
can  be  successfully  predicted. 

Contamination  problems  may  limit  the  use  cf  the  air-assist 
nozzles  where  many  nozzles  with  small  flow  rates  and  small 
passage  sizes  are  required.  This  problem  may  be  partially 
overcome  by  the  use  of  filters  in  the  fuel  lines  which  would 
require  changing  at  given  intervals. 

Separate  air  purnps  increase  the  cost  and  complexity  of  the 
system,  thereby,  to  some  extent,  limiting  their  use. 

Recommended  use  for  nozzles  of  this  type  are: 

o  Conditions  where  compensation  is  required  for 
poor  primary- zone  design 

o  To  minimize  light-off  problems,  particularly 
in  the  case  of  cold  starts  with  low  pressure 
drop  systems 

o  In  low-cost,  state-of— the-art-technology 
engine  applications 

4 . 2  PNEUMATIC-IMP ACt  ATOMIZER 

The  pneumatic-impact  injector  is  an  air  atomizing  fuel  nozzle 
that  was  developed  as  a  result  of  the  U.S.  Navy  Contaminated 
27 

Fuels  Program  and  AiResearch  developmental  activities .  As 
shown  schematically  in  Figure  27,  the  nozzle  consists  of  a 
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Figure  27.  Pneumatic-Impact  Injector  Schematic 


single  fuel  jet,  a  venturi,  and  an  impact  plate.  The  venturi 
is  designed  to  avoid  fuel  impingement  on  the  walls  of  the 
venturi  and  to  accelerate  the  fuel  to  impinge  on  the  impact 
plate  at  the  highest  possible  velocity  in  order  to  atomize 
the  fuel.  The  energy  for  atomization  is  derived  from  the 
combustor  pressure  drop. 

The  computer  program  derived  for  analysis  of  the  pneumatic- 
impact  fuel  injector  is  briefly  described  in  Appendix  II. 


» 


4.2.1  Model  Definition 

The  calculation  procedures  assume  coarse  jet  breakup  and  accel¬ 
eration  through  the  venturi  accompanied  by  some  droplet  evap¬ 
oration.  A  film  is  formed  at  the  impact  plate  and  a  fine 
atomization  then  takes  place  at  the  plate  lip. 

15  . 

Jet  breakup  calculations  are  based  on  work  by  Fraser  in 
which  a  spinning  cup  was  used  to  deliver  a  thin  sheet  of  fuel 
into  an  annular  air  jet  where  it  was  then  broken  up  into  drop¬ 
lets. 

Fraser  obtained  the  correlation 


o  ,1/2 


SMD  = 


6  +  20036 
S 


(SG  x  v) 


0.21 


<V 


1/2 


Vf  (0-5  VR  -  VK  +  X) 


1/2 


("!?) 


where 


SG  =  fuel  specific  gravity 

Mr  =  air  to  fuel  mass  flow  ratio 

VR  =  air  velocity/fuel  velocity  =  V_^  /V^ 


(25) 


In  order  to  complete  the  jet  breakup  model,  two  other  assump¬ 
tions  were  made.  First,  the  breakup  length  was  taken  to  be  2.4 

28 

times  the  SMD,  based  on  an  analysis  by  Rayleigh  ,  and 
second,  the  fuel  spray  was  assumed  to  mix  into  the  airstream 
progressively.  This  was  done  with  the  assumption  that  all  fuel 
inside  a  cone  (downstream  of  the  breakup  point)  that  is  six 
times  the  jet  diameter  in  length  is  not  involved  in  the 
aerodynamic  process. 
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The  net  effect  of  these  two  assumptions  is  that  as  atomization 
deteriorates,  the  fuel  spray  extends  farther  down  the  venturi 
before  becoming  involved  in  the  aerodynamic  process.  In  the 
ver turi  the  fuel  droplets  are  accelerated  by  the  aerodynamic 
-forces.  while  the  air  is  slowed  down  by  droplet  drag  and  duct 
fric-ion  and  modified  by  heat  transfer  between  the  fuel  and 
the  air. 

Droplet  correlation  is  based  on  Ingebo's^  drag  coefficient 
data,  in  which 

Coefficient  of  Drag,  C^,  =  27  Rn  (26) 

Heat  transfer  is  calculated  by  the  same  method  as  defined  in 
the  air-assist  atomizer  section. 

The  effects  of  drag,  friction,  heat  transfer  and  change  in 
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duct  size  were  calculated  from  Shapiro  in  which  the 
calculations  are  carried  in  small  steps  from  the  duct  inlet 
to  the  duct  outlet  and  iterated  to  get  the  duct  exit  static 
pressure  to  the  required  value.  This  allows  the  calculation 
of  Vair '  Tair'  Vfuel  (five  dr0Plet  groups)  and  Tfuel  at  the 
duct  exit.  Typical  velocities  are  shown  in  Figure  28. 

Factors  that  were  assumed  negligible  were: 

(a)  Heat  transfer  from  the  duct  wall  to  the  fluid 
stream  was  neglected  because  of  the  small  temper¬ 
ature  difference  between  the  duct  wall  and  the 
fluid. 

(b)  Secondary  flows  induced  by  the  drag  of  the  fuel 
spray  were  neglected,  making  the  assumption  that 
by  the  time  the  fuel  spray  reaches  the  diffuser 
inlet  most  of  the  airflow  will  be  mixed  with  the 
fuel  spray  and  the  one-dimensional  analysis  will 
be  adequate . 

(c)  The  fact  that  some  air  bypasses  the  fuel  spray 
cone  was  neglected. 

Following  coarse  atomization  and  evaporation  from  the  fuel  jet, 
film  conditions  at  the  edge  of  the  impact  plate  were  calcu¬ 
lated.  These  were  based  on  the  following  assumptions: 

(a)  Average  fuel  velocity  at  the  venturi  exit  is  equal 
to  che  fuel  velocity  at  the  edge  of  the  impact 
plate  (i.e.,  viscous  drag  on  the  fuel  sheet  is 
counterbalanced  by  air  scrubbing  velocity) . 


FUEL  VELOCITY  -  FT/SEC 
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Figure  28.  Pneumatic-Impact  Fuel-Injection  System 


(b)  Average  fuel  temperature  at  the  venturi  exit  is 
equal  to  the  fuel  temperature  at  the  edge  of  the 
impact  plate  (i.e.,  no  heat  transfer  from  the  impact 
plate  to  the  fuel) . 

(c)  At  the  edge  of  the  impact  plate,  the  fuel  is  moving 
in  a  thin  sheet;  this  sheet  is  atomized  in  the  shear 
layers  between  the  high-velocity  air  from  the 
venturi  and  the  low-velocity  ambient  air.  Fuel 
sheet  thickness  was  determined  by  the  method  of 

,  20 

Kinney  et  al. 

(d)  SMD  calculations  are  based  on  Fraser's  correlation. 
Equation  (25) . 

Droplet  evaporation  is  calculated  with  the  procedure  outlined 

for  the  atomizer  injector,  except  that  the  fuel  droplets  are 

injected  into  a  velocity  temperature-field  setup  by  injector 

through-fj.ow  air.  The  air  leaving  the  injector  was  assumed 

to  follow  the  form  of  a  radial  wall  jet.  The  temperature  and 

.  31  32 

velocity  fields  were  determined  from  Ricon  and  Bakke 

based  on  this  assumption. 

4.2.2  Pneumatic-Impact  Spray  Tests 

The  purpose  of  the  pneumatic-impact  spray  tests  was  to 
determine  the  pneumatic- impact  circumferential  distribution, 
the  drop-size  characteristics  and  the  spray  envelope.  The 
injector  is  shown  in  Figure  29. 

4. 2. 2.1  Drop-Size  Characteristics 

The  pneumatic- impact  nozzle  was  calibrated  by  Parker-Hannifin. 
Test  conditions  and  predicted  SMD  values  are  shown  in  Table  VII. 
The  drop  size  predicted  by  the  original  procedure  was  about 
one-tenth  the  measured  values.  This  was  attributed  to  the 
method  used  for  calculating  the  fuel  sheet  thickness  and  the 
gas  velocity  in  the  sheet  breakup  region.  Fuel  sheet  thick¬ 
ness  was  initially  computed  with  the  assumption  that  the  sheet 
velocity  at  the  lip  was  equal  to  the  fuel  velocity  at  the 
venturi.  Results  from  the  film  thickness  calculations  con¬ 
ducted  for  the  L-pipe  injector,  discussed  later,  provided  an 
updated  film  thickness  calculation  procedure. 

Incorporation  of  this  procedure  with  a  reduction  in  the  air 
and  fuel  sheet  velocities  as  they  flow  radially  outward  on  the 
impact  plate  resulted  in  predicted  values  in  close  agreement 
with  those  measured.  Predictions  were  within  25  percent  of 
the  measured  values,  with  the  exception  of  the  third  test 
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Figure  29.  Pneumatic-Impact  Fuel- Injector  Nozzle. 


point.  The  second  and  third  test  points  tabulated  are  the 
same  except  for  increased  air  pressure  drop.  The  test  results 
indicate  that  the  effect  of  almost  doubling  the  air  velocity 
results  in  only  a  S-percent  decrease  in  drop  size,  whereas 
over  a  50-percent  reduction  was  predicted  by  the  original 
operation. 


TABLE  VII.  PNEUMATIC- IMPACT 

INJECTOR  DROPLET  SIZE  TEST  POINTS 

-  .  . . . . .  "  ~ 

Test  Point  Number 

Fuel  flow,  lb /hr 

2 

10 

10 

10 

Air  pressure,  in.  of  H20 

4 

4 

12 

12 

Fuel  viscosity,  CS 

1.17 

1.17 

1.17 

12 

Fuel  pressure,  psig 

0.2 

0.9 

1.1 

Airflow  rate,  lb/hr 

9.4 

8.07 

14.3 

14.3 

SMD,  microns  (measured) 

135 

211 

264 

MMD,  microns  (measured) 

269 

272 

327 

Predicted  SMD,  microns 

Equation  (25) 

15.7 

37.2 

17.5 

24.8 

Predicted  SMD,  microns 

Equation  (25) 

with  corrected  fuel 

and  gas  velocities 

141.5 

264 

117 

324 

A  second  possibility  for  the  discrepancy  is  that  random  sheet 
thickening  due  to  drop  formation  on  the  impact  plate  could 
have  resulted  in  excessive  drop  sizes  at  this  test  condition. 

No  repeat  tests  were  performed,  and  because  of  reasonable 
agreement  between  the  predicted  and  experimental  values  for 
three  out  of  four  cases,  no  further  modification  to  the  analysis 
was  undertaken. 


Figure  30  shows  the  drop-size  distribution  for  the  pneumatic- 
impact  injector  test  data.  Also  shown  for  comparison  is  the 
correlation  for  the  air-assist  atomizer  reproduced  from  Fig¬ 
ure  23.  The  two  distributions  are  essentially  identical. 
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SIZE  GROUP  MAX.  DIAMETER,  MICRONS 
MASS  MEDIAN  DIAMETER,  MICRONS  VOLUME  % 
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4. 2. 2. 2  Circumferential  Distribution 


Circumferential  distribution  tests  were  attempted  using  the 
pneumatic-inpact  injector  and  the  fuel  contribution  hardware 
shown  in  Figure  31.  Quantitative  data  found  to  be  un¬ 
obtainable  due  to  the  profile  of  the  spray  pattern.  High 
velocity  air  through  the  venturi  and  the  relatively  large 
open  area  at  the  discharge  forced  the  fuel  air  mist  out  of 
the  collector. 

However,  visual  observation::  did  show  a  wake  behind  each  strut 
holding  the  target  plate  to  the  venturi  body,  and  large  drop¬ 
lets  being  formed  due  to  surface  tension  effects  at  the  edge 
of  the  target  plate.  As  a  result  of  these  observations  the 
number  of  struts  was  reduced  from  four  to  two,  and  the  lip 
of  the  impact  plate  was  ground  to  a  sharp  edge.  Retesting 
produced  fewer  large  droplets  and  a  more  uniform  distribution 
between  the  two  struts. 

4.2.2. 3  Spray  Envelope 

The  pneumatic-impact  nozzle  was  tested  in  the  fuel-injection 
rig,  shown  earlier  in  Figure  24,  to  determine  the  spray  enve¬ 
lope  characteristics  in  a  manner  similar  to  that  described  in 
Section  4. 1.2. 2.  Data  was  obtained  with  duct  air  at  approxi¬ 
mately  200°F,  over  a  velocity  range  from  8  to  200  feet  per 
second  and  at  pressures  of  1,  8,  and  16  atmospheres.  Results 
were  plotted  in  a  manner  similar  to  those  described  previously 
for  the  air-assist  nozzle.  Curves  typical  of  these  results 
in  Figure  32  show  a  much  greater  radial  trajectory  spread  for 
the  pneumatic-impact  nozzle  than  did  the  air-assist  nozzle  at 
equivalent  test  conditions.  Some  nonsymmetry  of  the  profiles 
was  initially  believed  to  be  due  to  gravity  effects,  but  upon 
rotating  the  rig  180°  and  rerunning  two  points,  the  nonsymmetry 
was  found  to  be  due  to  uneven  distribution  from  the  nozzle. 

This  nonsymmetry  was  particularly  noticeable  at  the  lower  fuel 
flow  rates. 

Trajectory  calculations  were  performed  with  the  assumption 
that  the  droplet  velocity  leaving  the  plate  was  equal  to  the 
sheet  velocity.  These  calculations  resulted  in  predictions 
which  showed  lower  droplet  penetration  than  was  observed 
experimentally.  Similar  calculations  based  on  the  assumption 
that  the  droplet  velocity  was  equal  to  the  velocity  of  the  air 
passing  through  the  discharge  gap  (between  the  venturi  and  the 
impact  plate)  resulted  in  overpenetration. 
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IMPACT  KATE 


Figure  31.  Pneumatic-Impact  Injector  Fuel 
Distribution  Test  Hardware. 
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Figure  32. 


Pneumatic-Impact  Injector  Test 
Temperature  Profiles. 
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The  following  empirical  relationship  was  used  to  obtain  the 
best  correlation: 


droplet 


=  C  V 


air 


+  V 


sheet 


(27) 


Where  Vdroplet'  Vair  and  Vsheet  are  droPlet  velocity,  gap  air 
velocity,  and  fuel  sheet.  velocity,  respectively.  The  empiri¬ 
cal  constant,  C,  was  calculated  by 


C  =  0.05  P 


(28) 


where  P  is  chamber  pressure  in  atmospheres.  Experimental  and 
predicted  data  using  the  above  upcu»ied  correlation  are  com¬ 
pared  in  Figure  33. 

4.2.3  Conclusions 

Based  on  analysis  of  the  data  and  the  correlations,  the 
following  conclusions  were  established: 


o  For  a  given  chamber  pressure  and  approach  velocity 
the  SMD  and  penetration  both  increase  with  in¬ 
creasing  fuel  flow  rate. 

o  For  a  given  fuel  flow  rate  and  approach  air  velocity, 
penetration  depth  increajis  with  decreasing  chamber 
pressure. 

o  The  nozzle  air  field  has  an  appreciable  influence 
on  the  spray  distribution  from  the  impact  plate. 

o  Nonsymmetry  of  the  spray  envelope  could  not  be 

eliminated  with  the  use  of  two  or  four  supporting 
posts  for  the  target  plate. 

o  Droplet  breakup  calculations  for  the  jet/venturi 

region  do  not  appear  to  be  realistic;  however,  the 
influence  of  this  region  on  final  distribution  and 
SMD  is  minimal. 

The  pneumatic- impact  nozzle  is  insensitive  to  fuel  contamina¬ 
tion  problems  but  requires  combustor  pressure  drop  to  drive 
and  atomize  the  fuel.  This  causes  atomization  to  deteriorate 
with  decreasing  pressure  drop  which  can  cause  light-off 
problems , 

Fuel  impingement  on  liner  walls  can  cause  overheating  problems 
with  combustors  of  small  dome  height. 


Distribution  of  the  spray  is  influenced  by  target  plate  design 
and  support  system  and  by  the  primary- zone  airflow  patterns, 
which  makes  optimum  design  difficult. 

Recommended  limitations  for  the  use  of  the  pneumatic-impact 
injector  systems  are: 

o  In  short  combustors  with  many  injection  points  to 
overcome  possible  contamination  problems  and  to 
promote  mixing 

o  In  annular  combustor  systems  with  small  channel 

heights  to  avoid  impingejnent  of  fuel  on  the  walls 

4.3  L-PIPE  INJECTOR 

An  L-pipe  fuel  injector  is  a  low  fuel  pressure  system  which 
places  a  liquid  fuel  film  on  the  combustor  dome.  The  film  is 
then  evaporated  from  the  dome  and  combustor  walls  by  the  hot 
recirculating  combustion  products.  The  device  (primary  pipe) 
by  which  the  film  is  placed  on  the  dome  can  be  of  several 
configurations,  including  J-pipe,  T-pipe,  L-pipe,  or  a  "mush¬ 
room"  shape. 

* 

Combustors  using  these  injector  types  are  generally  consid¬ 
ered  to  have  several  characteristic  advantages  over  the 
typical  fuel-pressure  atomizing  systems,  such  as: 

o  Low  smoke 

o  High  efficiency  at  part  power 

o  Nonluminous  (blue)  flame  which  reduces  radiation 
and,  thus,  wall  cooling  requirements 

o  Low  fuel-pressure  requirements 

o  Low  fabrication  costs 

Typical  disadvantages  of  these  systems  include: 

o  Ignition  (light-off)  difficulties,  particularly 

with  low  combustor  inlet  temperatures 

o  Primary  pipe  durability  due  to  the  requirement 

of  suspending  the  sheet  metal  tube  in  the  hot 
recirculating  combustion  products 

o  Nonuniform  fuel  distribution  and  backup  in  the 

tube,  particularly  with  low  combustor  pressure-drop 
systems 
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4.3.1  Model  Definitions 


The  L-pipe  injector  (shown  schematically  in  Figure  34)  was  the 
primary  configuration  examined  in  this  program;  however,  the 
analysis  is  also  applicable  to  the  other  configurations.  The 
computer  program  derived  for  analysis  of  the  L-pipe  (vapor¬ 
izer)  fuel  system  is  described  in  Appendix  III. 

The  analysis  is  similar  to  that  of  the  pneumatic -impact  fuel 
nozzle.  The  air  and  relatively  large  fuel  droplets  enter  the 
combustor  through  the  L-pipe  (analogous  to  the  venturi  in  the 
pneumatic-impact  system) .  The  air  (combustor  pressure  drop) 
accelerates  the  fuel  to  impinge  first  on  the  L-pipe  elbow  and 
then  again  on  the  combustor  dome.  The  analysis  of  the  flow  in 
the  L-pipe  differs  from  that  of  the  pneumatic-impact  system 
because: 

o  The  air  and  most  of  the  fuel  separate  after 
leaving  the  primary  pipe. 

o  The  fuel  evaporates  as  a  film  rather  than  as 
droplets . 

o  There  is  heat  transfer  to  the  fuel-air  mixture 
through  the  L-pipe  walls  from  the  hot  primary- 
zone  gases. 

External  and  internal  heat-transfer  coefficients  are  used  to 
determine  the  heat  input  through  the  L-pipe.  Calculations 
(and  observations)  indicate,  however,  that  a  very  small  frac¬ 
tion  of  the  fuel  is  vaporized  in  the  primary  pipe. 

Most  of  the  fuel  (tl  ose  droplets  larger  than  10  microns)  is 
placed  on  the  dome  and  flows  radially  in  a  thin  film.  The  cal¬ 
culations  for  fuel  film  evaporation  from  the  dome  are  based 
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on  radial  wall-jet  analyses  described  by  Gordon  and  Watz  ; 
i  .e. , 


Nu  -  h J  -  0.368  Rr  0,566  Pr0,36/(x/d) 0,434 

X  X  Jv  A 

where  x  =  radial  distance  from  center  of  jet 


(29) 


d  =  jet  diameter 
30 

Kinney  showed  that  the  heat- transfer  rate  on  the  dome  is 
significantly  higher  as  a  result  of  the  fuel  film;  i.e., 


^liquid7**  =  (0,0134  +  °*238  Wf/L)  ^ 


0.324 


(30) 


COOLING  BAND  WITH 
WIGGLE  STRIP 


Figure  34. 


L-Pipe  Vaporizer  Fuel  Injector 


where 


qliquid 


Wf/L 


=  heat-transfer  rate  with  film 
=  heat-transfer  rate  without  film 
=  fuel  flow  rate  per  unit  length 


The  calculations  of  fuel  film  thickness  and  velocity  are  also 
based  on  work  by  Kinney  where  these  parameters  are  calculated 
from  the  fuel  flow  rate  (W^)  and  the  surface  friction  co¬ 
efficient  (C,) .  C,  is  obtained  from  the  von  Karman  analogy 
with:  r  r 

Stanton  number  =  C^/2.0 

Friction  factor  =  4.0 

The  procedure  for  determining  the  primary-zone  velocities  and 
temperatures  that  produce  the  fuel  evaporation  is  dircu~sed 
in  Section  5.0. 

The  fuel  evaporation  characteristics  are  determined  from  the 
work  by  Priem6  discussed  in  Section  4.1.1. 

Typical  results  from  calculations  of  fuel  film  parameters  in 
a  16-atmosphere  environment  are  showr  in  Figure  35  as  a  func¬ 
tion  of  radius  along  the  combustor  dome  from  the  stagnation 
point  of  air-blast  pipe  impact.  The  most  significant  fact  de¬ 
rived  from  these  calculations  is  the  relatively  constant  film 
thickness.  The  film  velocity  drops  rapidly  because  of  the 
combined  effect  of  increasing  radius  and  decreasing  wall  jet 
air  velocity.  The  combined  effect  of  reduced  velocity  and 
friction  factor  apparently  balances  to  produce  a  relatively 
constant  film  thickness. 

The  evaporation  rate  is  approximately  linear  and  extends  well 
beyond  the  0.685-inch  half  width  of  the  preliminary  annular 
combustor  design  (Section  2.2.4).  This  indicates  that  the 
fuel  film  extends  beyond  the  dome  and  evaporates  along  the 
side  wall. 

The  L-pipe  temperature  calculation  routines  indicated  metal 
temperatures  on  the  order  of  1200°F.  Attempts  to  verify  these 
calculations  by  tests  were  unsuccessful. 

4.3.2  L-Pipe  Injector  Tests 


The  L-pipe  test  rigs  were  designed  to  provide  quantitative 
data  for  fuel  film  thickness  and  distribution. 
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Four  primary-pipe  configurations  were  tested: 

(a)  A  standard  L-pipe  [Figure  36(a)],  fabricated 
from  stainless  steel  and  Plexiglas  (the 
Plexiglas  model  permitted  flow  visualization 
of  the  fuel  within  the  L-pipe) 

(b)  A  modified  L-pipe  [Figure  36(b)],  which  incor¬ 
porated  an  insert  at  the  exit  to  reduce  fuel  • 

dribbling 

(c)  A  rectangular-exit  L-pipe  [Figure  36(c)],  which 

was  expected  to  provide  a  circumferential  distri-  , 

bution  that  is  compatible  with  an  annular  com¬ 
bustor 

(d)  A  straight  fuel  tube  (not  shown)  to  assess  L-pipe 
elbow  effects 

4. 3. 2.1  Fuel  Flow  Distribution 

Figure  37  illustrates  the  fuel  flow  circumferential  distribu¬ 
tion  rig.  For  the  tests,  the  target  plate  (simulated  com¬ 
bustor  dome)  was  horizontal.  The  L-pipe  exit  was  positioned 
at  the  center  of  the  target  plate,  and  the  distance  from  the 
L-pipe  exit  to  the  target  plate  was  varied  from  0.5  inch  to 
2 . 0  inches . 

Air  and  fuel  flow  rates  were  varied  to  simulate  those  encount¬ 
ered  in  typical  combustors.  Fuel  flow  rates  were  varied  from 
2.0  to  30.0  pounds  per  hour,  with  air  pressure  drops  from  4.0 
to  6.0  inches  of  water.  JP-4  fuel  was  used  throughout  the 
tests . 

Figure  38  shows  typical  data  that  was  obtained  with  the  18 
fuel  collection  beakers.  The  ordinates  on  this  figure  (flow 
ratio)  are  the  ratio  of  the  fuel  captured  in  each  beaker  to 
the  average  obtained  in  all  beakers.  Table  VIII  summarizes 
the  range  of  flows  (maximum  to  minimum)  encountered  for  each 
nozzle  type. 
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(c)  RECTANGULAR  EXIT  L-PIPE. 

Figure  36.  L-Pipe  Configurations  Tested. 


FUEL 


DRILLED  TO  ALLOW 
TARGET  ADJUSTMENT 


AIR 


RUBBER 
O-RING  SEAL 
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r-  TARGET  SUPPORT 


FUEL  COLLECTION 
(18  GRADUATED 
BEAKERS) 


4 


(a)  RIG  DESIGN  SCHEMATIC 


(b)  RIG  HARDWARE 


Figure  37.  L-Pipe  Flow  Distribution  Rig. 
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TABLE  VIII,  SPREAD  IN  FLOW  RATIOS 


Flow  Variation  (Maximum  to  Minimum) 


Fuel 

Flow 
(lb  /hr) 

Standard 

(Circular) 

L-Pipe 

Modified 

L-Pipe 

Rectangular 

L-Pipe 

2 

4.2 

4.7 

- 

8 

1.5 

1.4 

1.5 

20 

1.7 

1.1 

2.5 

|  30 

1.4 

2.0 

2.9 

The  standard  and  modified  L-pipe  configurations  provided 
a  more  even  distribution  than  the  rectangular-exit  L-pipe 
configuration.  The  distance  from  the  L-pipe  exit  to  the 
target  plate  did  not  ha\  a  a  significant  effect.  The  rec¬ 
tangular  discharge  L-pipe  appeared  to  produce  a  flatter  spray 
pattern,  but  in  other  respects  it  produced  results  similar  to 
the  <.  ^rcular  L-pipe.  The  distribution  war  not  as  uniform  as 
for  the  circular  L-pipe,  as  indicated  by  til's  spread  in  data 
as  shown  in  Table  VIII. 

Figures  39  through  42  show  the  standard  L-pipe  and  the 
rectangular-exit  L-pipe  without  the  collector  target  plate  in 
position.  These  show  the  visual  characteristics  of  various 
fuel  flows  and  airflows.  Surface  tension  effects  caused  the 
fuel  to  cling  to  the  outside  of  the  discharge  end  of  the  L- 
pipe.  In  an  effort  to  reduce  this  effect,  a  sharp  edge  was 
provided  at  the  end  of  the  tube  for  the  modified  L-pipe. 

However,  this  modification  did  not  overcome  the  problem. 

Observation  of  flow  utilizing  the  Plexiglas  (transparent) 

L-pipe  showed  that  at  low  fuel-flow  rates  with  no  airflow, 
the  fuel  ran  down  the  outlet  wall  and  dribbled  onto  the  col¬ 
lection  plate  in  a  random  direction.  With  airflow,  the  fuel 
was  predominantly  blown  to  one  section  of  the  collector.  As 
the  fuel  flow  was  increased,  this  maldistribution  was  reduced.  * 

The  fact  that  the  L-pipe  syt  ems  in  various  attitudes  have 
been  shewn  to  work  satisfactorily  in  operating  combustors 
indicates  that  fuel  distribution  may  be  significantly  affected 
by  the  overall  combustor  flew  pattern.  For  comparison  pur¬ 
poses,  a  straight  tube  equal  in  size  to  the  L-pipe  was  run  to 
establish  the  distribution.  These  tests  indicated  that  the 
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spread  in  the  straight  tube  was  similar  to  the  L-pipe 
configuration,  and  that  the  elbow  is  not  detrimental  to  per¬ 
formance.  The  fuel  maldistribution  probably  results  from 
aerodynamic  instability  of  the  fuel  and  air  rather  than  from 
secondary  flow  effects  due  to  the  elbow.  Observations  of  a 
hydraulic  jump  phenomena  during  the  straight-tube  tests  showed 
that  the  diameter  and  shape  of  the  jump  would  vary  as  a  func¬ 
tion  of  inlet  test  conditions .  Only  qualitative  data  could  be 
obtained  showing  the  dependence  of  jump  characteristics  on  the 
height  of  the  tube  above  the  target  plate,  the  amount  of  air 
through  the  tube,  or  the  fuel  flow  rate.  The  following  gen¬ 
eral  observations  were  made. 

o  Increase  of  fuel  flow  causes  an  increase  in  the 
diameter  of  the  jump  with  no  airflow. 

o  High  airflow  {AP  .  )  causes  the  diameter  of  the 

dir 

jump  to  vary,  even  with  the  steady  inlet  conditions. 

o  Increase  of  the  height  of  the  tube  above  the 

target  plate  does  not  alter  the  average  diameter 
of  the  jump  but  does  tend  to  make  it  vary  in 
shape . 

Conclusions  from  these  tests  are  that  the  L-pipe  method  of 
fuel  injection  can  lead  to  gross  nonuniformities  in  fuel 
distribution.  No  practical  method  for  resolving  this  in  the 
L-pipe  itself  has  been  found.  This  suggests  that  L-pipe  sys¬ 
tem  development  may  best  be  conducted  in  the  actual  combustor 
where  the  higher  air  velocities  and  high  turbulence  levels  can 
serve  to  mix  the  vaporized  fuel,  resulting  in  a  much  better 
vapor-air  distribution  than  would  appear  to  be  possible  from 
liquid  distribution  tests  at  quiescent  ambient  conditions. 

Of  the  L-pipe  configurations  tested,  the  circular  pipe  gave 
the  most  consistent  distribution.  The  increase  in  maldistri¬ 
bution  with  increased  L-pipe  airflow  suggests  that  L-pipe  air¬ 
flow  should  be  kept  as  low  as  possible,  since  its  only  purpose 
then,  is  to  ensure  that  fuel  is  propelled  to  the  combustor 
dome. 

4. 3. 2. 2  Film  Thickness  Measurement 

Film  thickness  measurements  were  made  with  a  Microderm  “non¬ 
destructive  coating  thickness  gauge,"  leased  from  Unit  Process 
Assemblies,  Inc.,  Woodside,  New  York.  The  instrument  uses  the 
principle  of  6-ray  absorption  and  backscatter  by  the  sample  to 
determine  its  thickness.  A  6~ray  source  (strontium)  is  placed 
above  a  receiving  plate,  and  the  fuel  sample  is  then  placed 
between  the  source  and  the  receiver.  The  number  of  rays 
transmitted  through  the  sample  to  the  receiver  in  a  period  of 
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time  is  a  function  of  the  atomic  number  and  thickness  of  the 
sample . 

A  calibration  of  the  gauge  (JP-5  fuel)  was  obtained  by  fabri¬ 
cating  a  rectangular  reservoir  (1.0-inch  by  0.080-inch).  A 
known  volume  of  fuel  was  placed  in  the  reservoir  by  means  of 
a  drop-calibrated  hypodermic  needle.  From  the  known  values 
and  wetted  area,  the  Miickness  was  calculated  for  each  volume 
and  the  microderm  scalos  was  calibrated  against  these  known 
thicknesses.  At  low  volumes — i.e.,  low  film  thickness — some 
error  was  introduced  due  to  uneven  plate  wetting.  Several 
measurements  were  made  where  error  was  suspected,  and  in  each 
case  readings  were  taken  at  more  than  one  location  above  the  * 

plate  and  film. 

Figure  43  shows  a  schematic  of  the  fuel-film  test  apparatus. 

The  L-pipe  was  replaced  by  a  straight  tube  with  a  circular 
cross  section  equal  to  that  of  the  standard  L-pipe.  The  test 
conditions  are  listed  in  Table  IX. 


TABLE  IX.  TEST  CONDITIONS  FOR  FILM  THICKNESS 
MEASUREMENT 


Fuel  flow,  lb/hr 

4,  10 

to 

o 

Air  AP,  in.  of  H20 

0,  5, 

10,  15 

h,  in. 

0.25, 

0.50,  0.75 

x,  in. 

«*. 

o 

in 

• 

o 

o 

U1 

I-1 

• 

o 

1.25,  150 


For  h  and  x  dimensions,  refer  to  Figure  43. 


The  test  data  obtained  indicated  the  presence  of  the  previous¬ 
ly  mentioned  hydraulic  jump  and  nonuniform  distribution  on  the 
target  plate.  Figures  44  and  45  show  tha  hydraulic  jump  and 
film  thickness  data  for  air  AP  =  15  inches  of  water,  and  air 
AP  =  0  inch  of  water,  respectively,  with  fuel  flows  of  4,  10, 
and  20  pounds  per  hour,  and  tube- to- target  distance  equal  to 
0.25  inch  (all  data  is  downstream  of  the  jump) . 

Conclusions  drawn  from  the  film-thickness  data  are  that  with 
no  airflow  through  the  tube,  and  low  fuel  flows,  the  film  will 
tend  to  have  a  uniform  thickness  after  the  initial  jump.  The 
addition  of  air  with  the  fuel  in  the  pipe  caused  peaks,  valleys 
and  splashing  of  the  fuel,  and  an  undefinable  jump  boundary. 
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Figure  43.  Film  Thickness  Measurement  Apparatus. 


FUEL 

TUBE 


4.3.3  Analytical  Model  Update 


Analytical  predictions  of  fuel  film  thickness  are  shown  in 
Figure  44.  Measured  thicknesses  are  greater  by  a  factor  of 
10  as  the  result  of  hydraulic  jump  formation.  The  size  o!: 
the  thickness-measurement  instrument  precluded  measurements 
inside  the  jump  ring.  Classical  open-channel  flow  theory 
relates  the  hydraulic  jump  to  gravity  forces  in  a  sloping 
channel.  Gravity,  together  with  the  degree  of  channel  slope, 
causes  the  flow  to  be  either  subcritical  or  supercritical  and 
has  an  analogy  to  subsonic  and  supersonic  compressible  flow. 

The  flow  of  a  film  on  a  level  flat  plate  will  be  subcritical 
(low  velocity  and  large  thickness)  unless  there  is  sufficient 
air  velocity  over  the  film  to  force  supercritical  flow.  In 
the  case  of  the  isolated  L-pipe  tests ,  air  from  the  L-pipe 
alone  is  not  sufficient  to  maintain  supercritical  flow  beyond 
a  radius  of  approximately  0.40  inch. 

Hydraulic  jump  theory  is  discussed  in  most  fluid  mechanics 

35  .  . 

texts — for  example,  Vennard.  A  critical  depth  occurs  at 
which  the  flow  passes  from  supercritical  to  subcritical  and 
is  related  to  the  flow  per  unit  width  (or  unit  circumference 
for  radial  flow) . 

/w2\1/3  Wf  2/3 

Y^  =  12  (  g  )  “  0.001924  ~  (31) 

where  Y  =  critical  depth,  inches 
c 

w  =  volume  flow  per  unit  width,  cu  ft  per  sec  per  ft 


Critical  depths  calculated  for  the  test  points  at  15  inches  of 
water  are  aiso  shown  in  Figure  44.  Application  of  the  impulse- 
momentum  principle  across  a  hydraulic  jump  leads  to  the  fol¬ 
lowing  ratio  of  downstream  to  upstream  film  depth: 


*1 

where  Y2  =  subcritical  downstream  depth 

y1  =  supercritical  upstream  depth 
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For  the  tested  conditions,  the  depth  ratio  is  on  the  order  of 


where  x  =  radial  displacement  from  L-pipe  centerline,  inches. 

Figure  44  shows  the  predicted  subcritical  depths  that  would 
occur  as  a  function  of  jump  radius,  x.  These  predicted  depths 
are  consistent  with  the  measured  depths  for  a  hydraulic  jump 
radius  of  the  order  of  0.10  to  0.40  inch.  Prediction  of  the 
location  of  the  jump  could  be  attempted  by  analyzing  the  fric¬ 
tion  drag  on  the  liquid  film  and  making  a  determination  of  the 
minimum  air  velocity  required  to  maintain  supercritical  flow. 
Such  an  analysis  would  have  to  be  strongly  dependent  on  the 
overall  configuration  and  is  not  deemed  of  sufficient  benefit 
for  pursuit  at  this  time.  The  main  point  is  to  be  cognizant 
of  hydraulic  jump  phenomena  and  attempt  to  avoid  its  occur¬ 
rence  in  film  vaporizing  designs  by  ensuring  that  the  fuel 
film  is  continually  scrubbed  with  high-velocity  air. 

4.3.4  Conclusions 

Based  on  an  analysis  of  the  data  and  correlations,  the  follow¬ 
ing  conclusions  were  drawn. 

o  The  L-pipe  method  of  fuel  insertion  can  lead  to 

gross  nonuniformities  in  fuel  distribution.  This 
indicates  that  the  flow  field  in  the  primary  zone 
is  of  prime  importance  in  the  operation  of  this 
type  of  combustor. 

o  Only  a  small  amount  of  fuel  is  actually  vaporized 
within  the  fuel  pipe. 

o  Fuel  film  thickness  is  not  constant  and  a  hydraulic 
jump  may  occur. 

o  Data  obtained  from  tests  not  including  the  total 

combustion  environment  are  not  directly  applicable 
to  combustor  design  and  must  be  viewed  only 
qualitatively . 

L-pipes  provide  a  simple,  inexpensive  method  of  fuel  insertion, 
but  limi  ations  to  their  use  may  be  imposed  by  the  following: 


o 


Fuel  backup  -  The  pressure  drop  across  the  combustion 
system  is  the  means  by  which  the  fuel  is  driven 
through  the  L-pipe.  At  low  combustor  pressure 
drops,  particularly  at  altitude  start  conditions, 
fuel  can  back  up  in  the  L-pipe  and  be  discharged 
over  the  outer  liner  This  problem  may  be  particu¬ 
larly  severe  when  the  L-pipes  are  in  the  inverted 
position  with  the  pressure  drops  of  the  order  of 
1  percent. 

o  Fuel  distribution  -  Fuel  distribution  within  the 
combustor  is  highly  sensitive  to  the  primary  zone 
flow  field  and  dome  design.  Successful  use  there¬ 
fore  depends  upon  careful  matching  of  the  primary 
zone  geometry  with  the  L-pipe  distribution. 

o  L-pipe  integrity  -  The  L-pipe  is  located  within  the 
combustor  primary  zone,  thus  making  it  more  suscep¬ 
tible  to  overheating  and  mechanical  failure. 

Recommended  limitations  for  the  use  of  L-pipes  are: 

o  Short  life  engines 

o  High  pressure  drop  combustors 

o  Well  developed  primary-zone  flow  fields 

with  a  start  nozzle,  possibly  required  for 
cold  inlet  starts 
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5 . 0  PRIMARY  ZONE 
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5.1  PRIMARY- ZONE  RECIRCULATION 

A  two-dimensional  fluid  mechanics  model  with  mixing- limited 
combustion  was  developed  to  predict  flow  field  properties 
(velocities,  temperatures,  species  concentrations,  etc.)  and 
resultant  recirculation  patterns  within  the  primary  zone. 

Fuel  evaporation  and  droplet  trajectory  calculation  routines 
(from  the  fuel  insertion  model)  were  also  included.  Several 
rig  tests  were  conducted  to  obtain  data  for  validation  of  the 
model. 

5.1.1  Model  Definition 

Prediction  of  the  fluid  properties  and  recirculation  patterns 
within  the  primary  zone  was  first  attempted  by  means  of  a 
numerical  analysis  technique  (called  SMAC*)  developed  at  the 

Los  Alamos  Scientific  Laboratory.26  This  method  considered 
the  problem  as  a  time-dependent,  incompressible,  viscous  fluid 
in  two  space  dimensions. 

The  basic  general  differential  equations  used  were: 
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where  <|>  =  p/p 

Equations  (33)  and  (34)  establish  a  momentum  balance  in  the  "X" 
and  "Y"  directions,  respectively,  and  Equation  (35)  establishes 
continuity . 

Problems  in  the  form  of  excessive  computer  time  and  program 
modification  existed  with  this  program.  It  became  apparent 
that  the  development  of  the  time-dependent  solution  for 
obtaining  a  steady-state  solution  and  the  inclusion  of  fuel 


♦Simplified  marker  and  cell 
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evaporation,  ignition  laa,  chemical  kinetics,  etc.,  would  not 
be  possible  within  the  time  available. 

Several  alternate  flow-field  computation  techniques  were 
examined  in  an  attempt  to  circumvent  the  SMAC  difficulties. 

These  included: 

37 

(a)  A  program  by  Gosman,  et  al,  which  uses  a  very 
general  finite -difference  approach  for  solving 

the  pertinent  elliptic  partial-differential  * 

equations  for  both  two-dimensional  and  axisym- 
metric  viscous,  time-averaged  flow  fields, 
including  turbulent  flow  with  combustion 

« 

(b)  An  AiResearch-deve loped  program  which  also  uses  a 
finite-difference  approach  for  solving  elliptic 
partial-differential  equations,  but  is  inviscid 
thus  requiring  an  arbitrary  loss  distribution  as 
input 

(c)  An  empirical  approach  with  the  use  of  published 
data  to  predict  spreading  and  entrainment  of 
radial-  and  axial-wall  jets 

The  Gosman  et  al  program  was  shown  to  be  the  most  readily 
adaptable  to  the  combustor- type  flow  field  and,  thus,  was 
selected  for  computation  of  both  primary- zone  and  dilution- 
zone  flow-field  properties.  The  computer  program  prepared  for 
the  primary-zone  analysis  is  described  in  Appendix  IV. 

5 . 1 . 1 . 1  Gosman  Program  Solution  Technique 

This  general  program  scheme  is  capable  of  solving  the  per tin ant 
elliptic  partial-differential  equations  for  a  wide  variety  of 
two-dimensional  and  axisymmetric  fluid  mechanics  problems, 
including  turbulent  flow  with  combustion.  Arbitrary  boundary 
conditions  can  be  specified,  along  with  variable  grid  spacing, 
curved  boundaries,  and  swirling  flow  with  recirculation.  The 
analysis  allows  for  recirculation  and  is  not  limited  to  a  pre¬ 
dominant  flow  direction. 

The  method  is  developed  with  the  classic  assumption  that  steady 
turbulent  flow  can  be  approximated  by  a  laminar- flow  solution 
in  which  molecular  viscosity,  conductivity,  and  diffusivity 
are  replaced  by  effective  viscosity  and  exchange  coefficients 
varying  with  location,  to  characterize  the  transport  properties 
of  momentum,  energy,  and  species  concentration.  The  analysis  » 

starts  from  a  generalized  curvilinear  orthogonal  coordinate 
system  that  is  primarily  two-dimensional  but  allows  for  axial 
symmetry  and  rotational  swirl.  The  coordinate  system  is  shown 


96 


in  Figure  46.  By  properly  defining  "metric”  coefficients 
JU  (i  =  1,  2  etc.) ,  a  variety  of  coordinate  types  can  be  util¬ 
ized,  without  changing  the  basic  differential  equations. 

These  include  Cartesian,  cylindrical,  cylindri cal -polar ,  and 
spherical  coordinates. 


DIRECTION  2 


Figure  46.  Gosman  Coordinate  System. 

The  dependent  variables  that  characterize  the  flow  field  are: 

m.  ■  mass  of  species  j  ir.  unit  mass  of  mixture  (mass  frac 
-1  tion) 

p  =  fluid  pressure 

p  =  mixture  density 

t  =  mixture  temperature 
% 

h  *  mixture  stagnation  enthalpy 

hj  =  negative  of  j  species  heat  of  formation 

C  .  =  species  j  specific  heat  at  constant  pressure 
2 

V  /2  =  kinetic  energy  of  mean  motion 

k  =  kinetic  energy  of  turbulent  motion 
i  =  turbulent  length  scale 
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The  conservation  equations  of  mass,  momentum  and  energy  involving 
pressure  and  velocity  terms  are  transformed  to  those  involving 
stream  functions  (whereby  the  overall  mass  conservation  equa¬ 
tion  is  automatically  satisfied)  and  vorticity,  which  eliminates 
explicit  dependence  of  pressure  on  the  flow  field.  The 
resulting  equations  for  all  of  the  dependent  variables  are 
shown  to  be  of  identical  form.  A  generalized  equation  is 
formulated  and  written  as  follows: 


»«y) 

3S2  ( 


3  L  12I|(V»| 

jq  jb*  17  <^1 

+p'iVd$  "  0 


00 


% 


In  the  above,  $  represents  any  one  of  the  dependent  variables 
described  in  Table  X,  and  and  l ^  represent  metric  coeffi¬ 
cients  that  are  multiplying  coefficients  on  the  £  coordinates. 
Table  X  lists  the  dependent  variables,  along  with  the  forms  of 
the  a,  b,  c,  and  d  terns.  The  fi.’st  bracketed  term  multiplied 
by  a^  represents  convection  by  fluid  flow.  The  second  and 

third  bracketed  terms  account  for  diffusion,  and  the  last 
term  is  the  generation  or  source  term. 

The  general  equation  is  expressed  in  finite-difference  form 
with  "upwind"  differencing.  Boundary  conditions  for  every 
independent  variable  must  be  specified  in  one  of  the  following 
forms  at  each  boundary  node: 

(a)  The  value  of  the  variable 

(b)  The  gradient  at  and  normal  to  the  boundary 

(c)  A  relationship  that  connects  the  variable 

to  values  of  the  normal  component  of  the  velocity 

For  flows  with  combustion,  a  simplified  procedure  is  developed 
to  eliminate  the  need  for  solving  separate  equations  for  the 
species  of  fuel  vapor,  air,  and  combustion  products.  Because 
of  stoichiometry,  fuel  and  air  disappear  and  products  appear 
at  proportional  rates.  It  is  also  assumed  that  combustion 
is  instantaneous  (mixing  limited) .  A  fictitious  dependent 
variable,  <fifc,  is  defined  as 

♦fo  -  Kf  -  V1  <37) 

where  i  =  pounds  of  air  required  to  burn  1  pound  of  fuel 


98 


TABLE  X.  TERMS  OF  THE  GENERAL  ELLIPTIC  EQUATION 


Dependent  Variable 


Species 


Enthalpy 


Swirl  velocity 


Vorticity 


rj»ef  f 


ueffr  I  _2 


.2  _2 


Stream  function 


-Rj 

i  _a_  r  v 

t1t2r  a;x  [uef£  ix 
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\°k  '’h  /  3?1  3  V° 
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1  (*  0  *«? * 
«jlJ  " 

tl"2r  S*2  L  e£f  l2l 

+  +?( i 

\®k  J  \° 

a?3 

_  1_  f.v  2i  -r  Li 

>  (vi2  +  v22)  ap 

3z  ®V3  ’  txt2  [a; 

.  jl(vi2*v*2)  is 

a;2  \  2  /  a? 

:x  \  2  /  a?2 

■  1  -r2S 

:ij 

(V 

Turbulence 

kinetic  energy 


Turbulence  scale 


‘k.eff 


Temperature 


Mixture  fraction  a. 

to 


rh.eff 


A  corollary  parameter  for  products  is 


♦fp  =  wf  +  W  /(1.0  +  i)  (38) 

where  =  flow  rate  of  products 

It  is  further  assumed  that  the  turbulence  exchange  coefficients 
are  equal  for  fuel,  air,  and  products.  These  simplifications 
eliminate  the  source  terms  in  the  differential  equation.  A 
similar  development  is  made  for  stagnation  enthalpy;  and  with 
the  assumption  of  constant  specific  heats,  the  temperature  is 
expressed  as  a  function  of  mixture  ratio.  If  chemical  kinetics 
is  considered,  this  simplification  would  not  be  possible  for 
all  species  conservation  equations.  The  source  terms  are 
computed  from  standard  Arrhenius -type  rate  equations. 

The  Gosman  text  presents  two  computer  codings  that  apply  the 
method  described.  The  program  given  in  Gosman,  Chapter  6, 
termed  "The  Combustion  Program,"  was  initially  employed  to 
analyze  a  two-dimensional  single  slot  entry  configuration. 

This  configuration  was  1.37  inches  high  with  an  air  jet  0.050 
inch  high  entering  at  the  lower  wall.  The  eddy  viscosity 
expression  given  in  the  text  was  used. 

A  series  of  computer  runs  was  conducted  with  this  configuration 
to  evaluate  the  program  capability  in  its  original  form.  Con¬ 
clusions  drawn  from  these  runs  were: 

(a)  Nonuniform  grid  size  using  solid-wall  lower 
boundary  caused  nonconvergence.  Various  vorticity 
boundary  conditions  discussed  in  the  Gosman  text 
provided  no  improvement.  Use  of  underrelaxation, 
laminar  instead  of  turbulent  viscosity,  and  restric¬ 
tion  of  the  exit  width  all  failed  to  produce  con¬ 
vergence  . 

(b)  Convergence  could  be  obtained  only  when  using  a 
uniform  grid  or  an  axi symmetric  case  with  a  non- 
uniform  grid. 

Computer  time  per  node  per  equation  per  iteration  was  about  7 
milliseconds  (subsequent  modification  to  the  program  and  use 
of  an  optimum  computer  compilation  option  reduced  this  value 
to  about  3  milliseconds)  on  a  CDC  6400  machine. 

The  flow  pattern  produced  was  dependent  on  the  exit  boundary 
condition,  which  specifies  that  gradients  at  the  exit  in  the 
flow  direction  be  zero  so  that  the  streamlines  are  parallel. 

The  result  is  that  the  edge  of  a  recirculation  zone  cannot 
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exist  at  the  exit.  It  is  therefore  necessary  to  correctly 
select  the  location  of  the  exit  to  preclude  influence  on  the 
recirculation  zone. 

5. 1.1. 2  Modifications  to  the  Gosman  Program 

Inclusion  of  two-phase  flow  effects  of  droplet  and  film  evap¬ 
oration  in  the  Gosman  primary- zone  model  was  undertaken.  The 
evaporating  fuel  produces  a  positive  source  of  CHx  in  the  same 

manner  as  the  global-rate  expression  produces  a  negative  source 
(disappearance)  of  fuel.  The  rate  of  fuel  evaporation  computed 
from  the  fuel-insertion  models  is  converted  to  a  volumetric 
creation  rate  for  each  grid  node.*  This  value  is  then  added  to 
the  source  term  for  the  fuel  for  a  resultant  net  creation  of 
fuel . 

The  program  was  also  revised  to  allow  mass  addition  at  other 
points  on  the  boundary  to  provide  for  fuel  evaporation  off  the 
walls  and  account  for  recirculating  flow  from  air-blast  pipes 
or  impinging  secondary  or  dilution  air  jets.  Fuel  vaporization 
rates  are  specified  by  assuming  a  flow  velocity  at  the  boundary 
that  produces  the  desired  mass  flow.  For  impinging  side-wall 
air  jets,  the  recirculating  flow  input  to  the  program  is  cal- 

38° 

culated  from  a  method  by  Verduzio  and  Companaro  discussed 
later  in  this  section  (paragraph  5. 1.1.4). 

An  extension  of  the  computation  to  include  combustion  rate 
kinetics  was  required  for  combustion  efficiency  predictions. 

A  simple  two-step  global  kinetic  scheme  was  preferred  to  an 
extensive  chain  mechanism  scheme  due  to  computer  time  limita¬ 
tions  and  intractability  of  the  model. 

The  global  reaction  rate  expressions  reported  by  Williams 
39 

et  al  for  the  methane  oxidation  mechanism  as  given  by 


ch4 

♦  § 

02  --►CO  +  2H20 

(39) 

CO 

°2  — C02 

(40) 

were  converted  to  the  English  System  [foot-pound-second  (FPS) ] 
used  in  the  Gosman  program,  and  are  given  by 


,5.2 


-3.5  x  10  p  exp  [-51629/T]m_,„  /in 

Uri ,  ' 


■v 


(41) 
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and  for  carbon  monoxide 


,10  2 


Rco  =  -1.2  x  10  p  exp  [-22647/Tjm^/mQ^  (42) 

where  R  =  rate  of  species  creation,  lb  per  sec  per 
cu  ft 


p  =  mixture  density,  lb  per  cu  ft 
m  =  species  mass  fraction 

Species  conservation  must  be  applied  to  the  species  CH^,  CO, 
02,  N2,  and  H20.  From  Equation  (39)  on  a  mass  basis. 


R  s  I  R 
^4  3  °2 


4  _  4 

9  -  7  RCO 


(43) 


and  from  Equation  (40)  / 


RCO  4  ro2  if  rco2 


(44) 


The  nrt  creation  of  CO  is 

R, 
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The  equality  of  reaction  rates  allows  the  combination  of 
species  conservation  equations  to  eliminate  source  terms  for 
three  of  the  species  conservation  equations.  Selecting  CH4 

and  C02  as  the  species  for  which  rates  will  be  used,  the  fol¬ 
lowing  transformed  variables  of  H20,  02  and  CO  generalized  for 

CH  fuel  instead  of  methane  are  defined, 
x 


^  H-0  0  +  B  mCH 

2  2  x 

(46) 

♦ 

,  4 

*°2  ”  m°2  ~  A  n‘CHx  11  mC°2 

(47) 

ft 

*co2  =  mCO  +  C  mCH  +  IT  mC0o 

(48) 
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where 
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This  results  in  three  identical  species  conservation  equations 
which  have  no  source  term  and  have  to  satisfy  identical  bound¬ 
ary  conditions.  Therefore,  only  one',  of  them  needs  to  be  solved. 

For  a  premixed  fuel-air  mixture,  however,  the  solution  of  these 
equations  is  <p  =  constant. 

Equation  (41)  for  methane  fuel  was  inserted  in  the  Gosman 
program.  Initial  computations  with  a  two-dimensional  primary- 
zone  subelement  model  with  stoichiometric  premixed  mixture 
did  not  result  in  any  appreciable  reaction  at  inlet  tempera¬ 
tures  of  538°  and  1260°R.  At  538°R,  R_u  /p2m_,„  /im  . m,  rate 

_26  -1  4  4  2  2 
is  of  the  order  of  10  seconds  x,  because  of  the  high 

activation  energy.  It  was  found  necessary  to,  in  effect,  light 
off  the  reaction  by  allowing  the  computation  to  iterate  until 
the  recirculation  zone  was  formed  and  then  impose  an  increased 
temperature,  usually  4000°R,  to  initiate  the  reaction  over  a 
few  iteration  cycles.  When  this  condition  was  removed,  the 
computation  then  converged  to  a  sustained  combustion  condition. 
Following  this  work,  equations  for  both  reactions  were  suc¬ 
cessfully  implemented. 

5. 1.1. 3  Comparison  With  Well-Stirred  Reactor 

A  series  of  program  computations  was  conducted  with  a  two- 
dimensional  primary-zone  model  with  the  use  of  an  8  x  8  non- 
uniform  grid  as  a  preliminary  assessment  of  the  effect  of 
various  loading  conditions  on  the  computed  combustion  effi¬ 
ciency  . 

Computations  were  performed  for  inlet  temperatures  of  538°, 

900°,  and  1260 °R  and  pressures  of  1.0  atmosphere  and  0.37  atmo¬ 
sphere  (which  is  combustor  inlet  pressure  during  the  engine 
start  cycle  at  25,000  ft  altitude),  and  inlet  velocity  was 
adjusted  to  cover  a  range  of  loading  parameters.  A  premixed 
stoichiometric  mixture  was  used  and  calculations  were  per¬ 
formed  with  adiabatic  wall  temperature  boundary  conditions. 
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A  temperature  rise  of  4000 °R  was  imposed  during  the  11th 
through  the  14th  iteration.  This  was  sufficient  to  produce 
complete  reaction  of  fuel  and  CO.  After  this  temperature 
superposition  war  dropped,  the  iteration  proceeded  either  to 
converge  on  a  stable  burning  solution  or  to  die  out  toward  the 
original  inlet  temperature  for  loadings  beyond  blowout. 

With  increased  loading  the  efficiency  dropped  gradually,  then 
experienced  sharp  reductions  when  the  cold  inlet  flow  pene¬ 
trated  to  the  exit.  Blowout  finally  occurs  when  the  recircu¬ 
lation  zone  no  longer  provides  sufficient  energy  to  ignite  the 
incoming  mixture  before  it  reaches  the  exit.  These  results 

40 

were  compared  with  stirred-reactor  computations  by  Herbert 
and  with  actual  combustor  data. 

Figure  47  shows  the  results  plotted  as  a  function  of  Herbert's 
loading  parameter,  most  commonly  used  for  stirred  reactors. 
Herbert's  stirred  reactor  computations  are  also  shown.  At  low 
loadings  the  primary-zone  subelement  model  shows  a  faster  rate 
of  efficiency  decrease,  and  blowout  occurs  at  much  lower  load¬ 
ings  than  for  the  stirred  reactor.  is  defined  by 

w 

Q.  =  — 2  =  K  exp (-E/RT) f (composition,  efficiency)  (49) 
VP  r 

T  =  reaction  temperature 

K  =  constant 

V  =  reaction  volume 

Figure  48  shows  the  results  versus  Q2 ,  where  Q2  is  defined  by 

Q2  =  2  W -  (50) 

VP  exp (T^/n) 


where  n  =  f  (fuel-air  ratio) 


The  gradual  decay  portions  of  the  efficiency  curves  are  brought 
together  to  a  single  line,  but  the  drop-off  is  not  correlated. 


Data  plotted  as  a  function  of  the  empirical  loading  parameter 


Q 


3 


W 

VP2  /T 


(51) 


is  shown  in  Figure  49,  together  with  two  typical  combustor 
empirical  curves.  The  primary-zone  subelement  data  falls 
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Figure  49.  Primary-Zone  Subelement  Reduced  Model 

Efficiency  Versus  Empirical  Loading  Parameter 


above  the  combustor  experimental  data  and  does  not  appear  to 
be  correlated  as  well  as  with  parameter  Qj.  Q2  has  been 

employed  to  correlate  combustor  data,  and  frequently  the 
pressure  is  raised  to  the  1.75  or  1.8  power  instead  of  2.0. 

This  difference  is  attributed  to  the  effects  of  mixing  and 
overall  reaction  order  being  less  than  2.  The  primary-zone 

2 

subelement  reduced-model  data  correlated  directly  with  P 
since  the  global  rates  include  the  square  of  the  density.  It 
is  concluded  that  the  combustion  efficiency  calculation  is 
reasonable  and,  within  the  framework  of  a  very  simple  flow 
model,  consistent  with  both  stirred  reactors  as  an  upper-limit 
extreme  and  with  practical  combustors. 

5. 1.1. 4  Impinging  Jet  Recirculation 

The  Gosman  program  cannot  handle  the  inherently  three- 
dimensional  problem  of  multiple-jet  injection  and  recircula¬ 
tion  that  results  from  jet  impingement  as  depicted  in  Figure 

38 

50 .  A  method  presented  by  Verduzio  and  Campanaro  was  used 
to  provide  information  on  recirculation  ratios.  As  this  refer¬ 
ence  is  not  generally  available,  a  complete  derivation  is 
given  in  the  following  paragraphs .  The  results  of  this  anal¬ 
ysis  provide  a  means  for  calculating  recirculating  flow  and 
for  optimizing  the  primary  orifices  to  obtain  maximum  recircu¬ 
lation.  The  computer  program  prepared  for  this  analysis  is 
presented  in  Appendix  V. 
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Figure  50.  Jet  Impingement  Schematic. 
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The  model  used  by  Verduzio  and  Campanaro  is  depicted  in 
Figure  51,  showing  the  primary  zone  of  a  tubular  combustor. 
The  region  of  jet  impingement  at  the  centerline  is  considered 
as  a  control  volume. 


Figure  51.  Recirculation  Model. 


A  momentum  balance  equates  the  flow  momentum  to  the  pressure 
differential  resulting  from  jet  blockage. 


-kgU1  +  (l-k)gU2  -  gUp  sin  6q  =  gc  (P-j^^  (52) 

where  g  =  mass  flow  through  injection- jet  holes 

=  velocity  of  upstream  flow 

U2  =  velocity  of  downstream  flow 

Up  =  velocity  of  injection  jets 

k  =  fraction  of  g  that  flows  upstream 
(recirculation  ratio) 

6q  =  initial  jet  efflux  angle 

Pp  -  P2  =  upstream  to  downstream  pressure  drop  due  to 
jet  blockage 

A  =  flame  tube  area 
o 

gc  =  gravitational  constant 

This  equation  is  applied  over  areas  A^  and  A2  equally  and  is 

defined  as  the  circular  area  of  total  jet  impingement  shown 
inside  radius  R^.  From  the  model,  the  flow  velocities  can  be 

expressed  in  terms  of  geometry  by  continuity  relations 
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The  momentum  equation  can  be  solved  for  k  with  the  use  of 
these  continuity  relations : 


k  =  i 
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where 


dQ  =  injection  orifice  diameter 
PQ  =  injected  air  density 
n  =  number  of  holes 


This  relation  can  be  solved  if  and  are  ^nown*  From 

the  geometry,  the  circular  is  expressed  in  terms  of  param¬ 
eter  • * 

£ 

22^—  +  tana  cosy 

Bi  -  — 5 h -  (54) 

sin  —  +  tana  cosy 
n  1 


where 


6  =  effective  jet  width  at  the  orifice 

greater  than  dQ  due  to  jet  distortion 

a  =  angle  of  jet  spreading 

y  =  angle  defined  by  geometry  =  arc  sin  ^ 


cosy  Ah.  - 


W 


The  factor  a  can  be  taken  as  0.1  for  most  cases  of  jet  spread¬ 
ing.  Verduzio  and  Campanaro  derive  an  approximate  expression 
for  6  given  as 


-  d  1  +  cos20 

°  L  n2  °J 


The  factor  F  cos  0q  is  given  as  a  function  of  Bq  that  can  be 
approximated  by  a  linear  relationship 

F  cos2Bq  =  16  -  0.4  0o  (57) 


where  0Q  =  0  (normal  injection) 
n  =  4 


6  =  2  d 


This  is  similar  to  the  value  of  initial  jet  distortion  devel¬ 
oped  in  the  dilution-zone  analysis  where  6  =  h.  From  the 
above  relationships,  values  of  can  be  calculated  to  obtain 

the  value  of  A^  required  in  the  equation  for  k. 

The  pressure  drop  is  calculated  by  assuming  that  the  primary- 
zone  exit  flow  experiences  a  sudden  expansion  loss  when  flow¬ 
ing  past  the  injection  jets.  The  conventional  expression  for 
expansion  loss  is 


P 


1 


where 


Pr  =  hot  gas  density 

UR  =  hot  gas  velocity  between  jets 


U.j  =  hot  gas  velocity  downstream  of  the 
jets  in  the  annular  area  between 
Aq  and  A2 


(58) 
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Introducing  continuity  relations  for  the  velocities 


U 


R 


li  P  A 


r  3 


the  pressure  drop  becomes 


P  -  P  = 
1  2 


5&M 


where  A^  =  Aq  -  A^  =  Aq  (1  -  B^2) 

A  =  A  -  A,  -  nA.  -  A  (1  -  B.2)  -  nA 
r  o  1  j  q  '  i  f  i 

A^  =  blockage  area  of  a  jet 


(59) 


(60) 


The  hot  gas  flow  rate,  g  ,  is  the  total  primary-zone  exit 
flow  r 

gr  =  (k  +  V) (1  +  f  )g  (61) 
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where 


V  =  ratio  of  flow  through  dome  to  flow,  g, 
through  holes 

f  =  primary-zone  fuel-air  mass  ratio 


The  pressure  drop  becomes 


p  -  p  -  fc+v) 
1  2 

2Vr* 


V)  2  ( ltf )  2q2  /  S  _  ,y 

A  2(1-B.2)2  \Ar  / 
r  o  l  \  / 


An  expression  for  A-/A  is  required  to  solve  this  equation. 
Verduzio  and  Campanarorgive ,  without  derivation,  the  following 
relation  apparently  obtained  from  the  geometry: 


A  (1-B.  ) 
o  1 


1  -  B . ' 

l 


1-tt  [arc  sin  +  bT  sin  (f-vTj 


This  completes  all  the  information  required  to  solve  for  k. 

Inserting  the  pressure-drop  equation  into  the  momentum  balance 
equation  for  k, 


=  1  4AoBj2  tangQ  _  P,  .  (k+V)  (1-f)  B.  fa  _ 

2  nird  2  pr  2  (1-B,2)2  \Ar 


2  wo 

Expanding  the  (k  +  V)  term  and  letting  x  =  — 


!  I  tanBo 

2  l  2„d  2 

o 

(l+f)2B.2  /a 

c*  - T  1 


the  following  is  obtained 


k  =  -  C2  (k2  +  2kV  +  V2) 
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Rearranging  as  a  quadratic  equation, 


with  the  solution 


For  tM  normal  injection  (tan  B  =  0) ,  no  dome  flow  (V  =  0) , 

c 

and  no  blockage  (P^  -  P2  =  0) ,  a  value  for  k  =  =  0.5  is 

obtained,  verifying  an  equal  upstream-to-downstream  flow  split 
of  the  impinging  jets.  Figure  52  shows  results  from  Verduzio 
and  Campanaro  indicating  the  effect  of  B. ,  V,  and  t  on  recir¬ 
culation  ratio  k.  The  effect  of  BQ  on  k^'is  shown  in  Figure 
53,  illustrating  the  reduction  in  recirculation  with  increas¬ 
ing  initial  efflux  angle. 


For  fixed  values  of  combustor  pressure  drop,  combustor 
diameter,  and  number  of  holes,  the  mass  flow  that  is  recircu¬ 
lated,  g  ,  is  a  function  of  orifice  diameter,  d  : 

3r  o 


kg 


The  factor  k  will  decrease  with  do,  but  g  will  increase.  This 
suggests  that  gr  will  be  a  maximum  for  some  given  orifice 
diameter.  Substituting  into  the  above  equation  the  continuity 
relation  for  jet  flow# 


g  = 


(65) 


where 

then 


W  WIW  WWJ. 


=  k  J 2g  p  AP 
v  3c  o  c 


i 
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.  Recirculation  Ratio  as  a  Function  of  Radius 
Ratio,  Temperature  Rise,  and  Dome  Flow  for 
Normal  Injection  and  Eight  Holes. 
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Figure  53.  Effect  of  Jet  Efflux  Angle  on  Recirculation 
Ratio. 


Inserting  RQ2  (combustor  radius)  and  rearranging, 

=  kn"  (  2R^)  R02  V23=P°4Pc 

Let 


(66] 


(67 


This  relation  expresses  gr  for  fixed  pressure  drop  and  com¬ 
bustor  diameter  in  terms  of  k,  n,  and  d0/2Ro* 


< 


L6 


Verduzio  and  Campanaro  presented  extensive  test  data  that 
showed  excellent  agreement  with  their  analysis  for  tubular 
combustors. 


The  preceding  analysis  was  derived  for  tubular  combustors. 
Application  to  annular  combustors  can  be  obtained  by  setting 
the  radius  Rq  equal  to  one-half  the  annular  combustor  width, 
equating  the  number  of  holes,  n,  to  2,  and  deriving  a  rela¬ 
tionship  for  blockage  area  Ar  in  terms  of  the  circumferential 
spacing  between  orifices. 

5.1.2  Element  Tests 


Experimental  validation  of  the  two-dimensional  primary- zone 
model  was  obtained  by  means  of 


o 

o 

o 

o 


5. 1.2.1 


Plexiglas  two-dimensional  primary-zone  water  rig 
Plexiglas  two-dimensional  primary-zone  airflow  rig 
Two-dimensional  primary- zone  combustion  rig 
Three-nozzle  sector  primary-zone  combustion  rig 
Primary- Zone  Element  Water  Rig  Description 


Five  Plexiglas  primary- zone  models  were  tested  in  the  water 
flow  rig  to  provide  visual  (photographic)  observation  of  flow 
patterns  and  velocity  information  for  comparison  with  analytical 
flow-field  calculations.  A  flow  schematic  of  the  water  rig 
installation  is  shown  in  Figure  55.  Figure  56  shows  a  typical 
test  section  and  inlet  and  outlet  transition  sections. 


To  obtain  the  necessary  visibility,  the  test  sections  were 
double  the  size  of  the  two-dimensional  hot  section  and 
mounted  vertically  in  the  rig.  Since  the  models  have  wall 
boundaries,  similarity  considerations  are  limited  to  the 
local  Reynolds  numbers,  with  a  26:1  reduction  in  velocity 
required  for  water  replacing  air.  Reynolds  numbers  greater 
than  10^  were  maintained,  so  that  combustion  effect  consid¬ 
erations  and  the  strict  Reynolds  numbers  similarity  require¬ 
ment  could  be  relaxed. 

Polystyrene  spheres  of  0.C02-inch  diameter  and  a  density 
approximately  the  same  as  water  were  used  for  flew  visualiza¬ 
tion. 


i 
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TEST  SECTIONS 


Figure  55.  Primary-Zone  Water  Flow  Rig  Schematic. 


CONTINUOUS  LIGHT  SOURCE 


INLET  TRANSITION  SECTION 


Other  test  hardware  included: 


o  Orifice  plates  and  pressure  gauges  for  flow  measure¬ 
ment 

o  A  mesh  screen  in  the  inlet  delivery  plenum 

o  A  1000-watt  quartz  lamp  continuous  light  source 

t 

o  A  double-slit  lamp  housing 

o  A  synchronized  strobe  light  (2.5  milliseconds 
«  duration) 

o  Moving  and  still  picture  cameras 

o  Five  test  sections 

5. 1.2. 1.1  Test  Procedure 

The  five  primary-zone  configurations  tested  were: 

o  Two-dimensional,  single-entry  subelement 

o  Two-dimensional,  three-nozzle,  double-entry, 

air-assist  injector  system 

o  Two-dimensional,  three-nozzle,  double-entry, 

L-pipe  injector  system 

o  Two-dimensional,  three-nozzle,  double-entry, 

pneumatic-impact  injector  system 

o  Two-dimensional,  three-swirler ,  double-entry  system 

A  cross  section  of  the  single-entry  test  section  is  illustrated 
in  Figure  57.  Tests  showed  that  both  the  continuous  light 
source  and  the  synchronized  strobe  light  were  required  to 
provide  quantitative  data  for  flow-field  velocity  evaluation. 
The  continuous  source  and  slit  system  were  placed  at  one  end 
of  the  test  section,  and  the  strobe  light  with  a  slit  in  the 
same  plane  as  the  continuous  source  was  placed  at  the  other 
side  of  the  test  section.  The  strobe  flash  was  connected  to 
the  camera  shutter,  and  this  resulted  in  a  bright  streak  of 
light  showing  the  distance  covered  by  the  particles  in  the 
»  first  2.5  milliseconds  of  exposure  time,  followed  by  a  less- 

intense  light  streak  caused  by  the  continuous  source  for  the 
remainder  of  the  time  the  shutter  is  open.  This  technique 
enabled  the  direction  and  velocity  of  the  particles  to  be 
determined  even  in  the  case  of  slow-moving  particles.  Air 
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velocities  at  the  flow  gap  were  simulated  over  the  range  of 
100  to  400  feet  per  second.  The  tests  indicated  unstable  flow 
in  the  primary  zone,  and  as  a  result  the  primary-zone  recir¬ 
culation  pattern  would  frequently  be  disrupted  by  interactions 
with  the  outlet  transition  section.  For  this  reason  longer 
test  sections  were  fabricated  for  the  other  four  configurations. 

5. 1.2. 1.2  Eddy  Viscosity  Correlation 

The  primary-zone  model  was  applied  to  the  water  model  to  study 
the  effect  of  using  different  numerical  values  for  eddy  vis¬ 
cosity  with  a  water  inlet  velocity  of  10  feet  per  second. 

With  a  turbulent  eddy  viscosity  of  1.096  pound  per  second  per 
foot,  which  is  2500  times  the  molecular  viscosity  of  water, 
the  calculation  produced  a  small  recirculation  zone  with  very 
rapid  spreading  of  the  jet.  Reduction  uy  a  factor  of  10  in 
the  viscosity  to  0.1096  caused  the  jet  to  no  longer  expand 
to  the  full  width  of  the  duct,  and  a  large  recirculation  zone 
was  formed  with  some  reverse  flow  at  the  exit.  A  further 
reduction  to  0.01096  brought  the  jet  down  near  to  the  lower 
wall,  and  a  small  secondary  recirculation  zone  was  observed 
in  the  upper  left-hand  corner.  This  calculation  agreed  quali¬ 
tatively  with  the  flow  pattern  observed  in  the  water  model, 
as  shown  in  Figure  58. 

The  necessity  for  arbitrary  adjustment  of  the  turbulent  eddy 
viscosity  to  obtain  satisfactory  correlation  with  the  experi¬ 
mental  data  indicated  that  a  more  universal  procedure  was  re¬ 
quired.  Work  by  Spalding^1  and  others  has  shown  that  the 
Prandtl-Komolgorov  hypothesis  would  provide  such  a  solution. 

This  hypothesis  states  that  the  eddy  viscosity  is  related  to 
the  kinetic  energy  of  turbulent  fluctuations  by  the  relation 

yeff  =  0,22  k  1/2  p£  (67) 

where  Meff  =  turbulent  eddy  viscosity 
k  =  turbulent  kinetic  energy 
H  =  length  scale  of  turbulence 

The  implication  of  Equation  (67)  is  that  the  turbulent  Reynolds 
number  asymptotically  approaches  a  constant  value.  That  is, 

Rn  -  SSe. 

P 


k1/2*p 

- =  constant 

peff 


(68) 
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Figure  58. 


Water  Model  Flow  Patterns. 
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To  employ  this  concept  fully,  knowledge  of  the  distribution  of 
k  and  l  through  the  field  is  required.  Transport  equations 
for  k  and  i  should  be  solved,  but  this  would  increase  compu¬ 
tation  time  and  complexity  beyond  funding  and  schedule  for 

this  program.  Wolfstein^  employed  the  following  relation¬ 
ship  for  turbulent  kinetic  energy  from  a  jet  with  exit  veloc¬ 
ity  (V). 

k  =  0.04  V2  (69) 

The  length  scale  is  generally  expressed  as  0.2  times  the  width 
of  the  mixing  zone  of  a  free  jet.  However,  in  the  Gosman  text, 
studies  of  mixing  in  film  cooling  flows  indicated  a  length 
scale  of  0.045  times  slot  width,  outside  the  cooling  film. 
Empirical  relations ,  producing  a  decreasing  length  scale  near 
the  slot,  were  used  within  the  film. 

For  the  water  model,  the  slot  width  was  0.1  inch,  with  a 
velocity  at  the  slot  of  10  feet  per  second.  The  turbulent 
eddy  viscosity  was  calculated  as 

ueff  =  0.22  k1/2  p l  (70) 

=0.22  (0.2V) (62.43) (0.045S/12) 

=  0.0103  lb  per  ft  per  sec 

This  is  within  6  percent  of  the  value  0.01096  found  by  arbi¬ 
trary  adjustment.  It  was  therefore  decided  that  the  above  em¬ 
pirical  relationship  could  be  used  for  the  turbulent  kinetic 
energy  formulation. 

5. 1.2. 1.3  Double-Entry  Rig  Experiments 

The  four  double-entry,  two-dimensional  test  pieces  were  de¬ 
signed  to  use  the  same  basic  test  section,  with  the  separate 
fuel  nozzle  configurations  being  interchangeable  in  the  section. 

A  sketch  of  the  basic  test  section  is  shown  in  Figure  59. 

This  section,  with  no  additional  hardware,  was  also  used  to 
simulate  the  air-assist  system,  as  it  was  not  anticipated  that 
the  relatively  low  flow  of  air-assist  nozzles  would  have  any 
effect  on  the  mainstream  flow  field.  Figure  60  shows  the 
L-pipe  and  pneumatic-impact  test  pieces.  The  L-pipes  were 
arranged  such  that  a  separate  manifold  could  be  used  to  deliver 
a  measured  flow  directly  to  the  injectors.  Polystyrene  tracer 
particles  were  also  introduced  into  this  flow.  The  effect  of 
swirl  was  determined  by  replacing  the  inlet  flow  gap  section 
with  one  containing  three  axial  swirlers. 
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Flow  field  data  was  recorded  by  means  of  both  still  and 
motion  pictures.  Velocities  were  determined  from  the  movie 
film  by  tracing  single-particle  movement  from  frame  to  frame 
projected  onto  a  white  sheet.  A  series  of  particles  was 
selected  at  random  from  the  first  frame,  and  the  resultant 
paths  were  followed  and  drawn  on  the  paper  for  each  of  the 
following  frames  until  a  trace  of  reasonable  length  was  ob¬ 
tained,  or  until  the  particle  moved  out  of  the  light  beam. 
Figures  61  and  62  show  typical  flow  field  and  velocity  vector 
plots. 

Some  instability  in  the  system  was  observed  in  all  cases, 
but  the  flow  patterns  did  not  change  significantly  for  the 
three  types  of  fuel-insertion  systems.  A  slight  reduction  in 
recirculation  length  was  apparent,  however,  when  the  flow 
section  containing  the  swirlers  was  used. 

Recirculation  length  (h)  was  typically  60  times  the  flow  gap 
height — i.e.,  approximately  6  inches  for  simulated  air-gap 
velocities  of  300  feet  per  second.  A  reduction  of  simulated 
inlet  velocity  to  150  feet  per  second  appeared  to  reduce  this 
length  to  approximate lv  5  inches. 

One  peculiarity  of  the  flow  was  the  tendency  in  many  cases  for 
the  flow  from  one  wall  slot  to  traverse  the  full  length  of  the 
model  while  the  flow  from  another  inlet  jet  stopped  at  the  end 
of  the  recirculation  zone,  separated,  and  was  entrained  into 
the  recirculation  zone.  A  schematic  of  this  single-sided 
recirculation  and  the  double-sided  recirculation  is  shown  in 
Figure  63. 


5. 1.2. 1.4  Analytical  Prediction 


A  21-by-21  nonuniform  grid  was  used  to  cover  the  2.74-inch-wide 
by  15-inch-long  test  section.  Because  of  the  nonsymmetry  in 
the  observed  flow  patterns,  the  entire  flow  section  was 
calculated  rather  than  a  symmetric  solution  on  one  half  of  the 
last  section.  A  nonuniform  grid  was  necessary  in  order  to 
accurately  model  the  critical  regions  near  the  inlets.  It  was 
found  that  convergence  could  be  obtained  with  nonuniform  grid 
spacing  when  the  eddy  viscosity  relations  developed  for  turbu¬ 
lent  flow  were  used. 


The  length  scale  previously  used  was  0.045  times  the  film  slot 
width.  The  work  of  Kacker  and  Whitelaw^3  solving  for  tur¬ 
bulence  kinetic  energy  with  an  empirical  length  scale  distribu¬ 
tion  gave  some  insight  into  the  required  distribution.  The 
basic  results  from  Kacker  and  White  law  were  that  the  mixing 
length  increases  with  the  distance  from  the  inlet  slot  in  the 
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r  Figure  61.  Typical  Water-Model  Flow  Pattern. 
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Figure  62.  Velocity  Vector  Plot  for  Air-Assist 
Nozzle  Primary  Zone. 
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Figure  63.  Typical  Water-Model  Flow  Pattern. 
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downstream  direction  and  with  cross-stream  distance  away  from 
the  wall.  Accordingly,  the  following  relation  was  included 
for  mixing  length  in  the  computations: 

l  =  a(b  +  x/s)y  (71) 


where 


a  =  constant  =  0.005  to  G.01 
b  =  constant  =  10  to  15 
x  =  downstream  distance  from  slot 
s  =  slot  width 

y  =  cross-stream  distance  from  wall 


The  ratio,  x/s ,  is  limited  to  a  maximum  between  10  and  20,  and 
the  constants,  a  and  b,  are  functions  of  slot  lip-width  to 
slot- flow-width  ratio  and  account  for  separated  regions  at  the 
slot  lip.  The  above  assumptions  cause  the  eddy  viscosity  to 
be  low  near  the  walls  and  higher  in  the  free  turbulent  flow 
regions.  Computations  conducted  to  simulate  100  feet  per  sec¬ 
ond  and  300  feet  per  second  air  inlet  velocity  at  the  slot 
(i.e.,  3.84  and  10  feet  per  second  water  slot  velocity)  pre¬ 
dicted  recirculation  zone  lengths  of  4.0  and  6.5  inches, 
respectively,  with  the  main  recirculation  zone  consisting  of 
two  unsymmetrical  vortices.  This  is  shown  in  Figure  64.  Fig¬ 
ure  65  shows  the  predicted  axial  velocity  profiles  in  the 
cross-stream  planes  for  a  slot  inlet  velocity  of  3.8  feet  per 
second  for  water.  These  results  agree  well  with  those  observed 
in  the  actual  physical  water  model. 


5. 1.2. 2  Two-Dimensional  Cold-Flow  Air  Rig 

Objectives  of  testing  with  the  two-dimensional  cold-flow 
Plexiglas  air  rig  shown  in  Figure  66  were  to 

o  Obtain  cold-flow  velocity  profiles  and  re¬ 
circulation  data 

o  Determine  the  accuracy  of  a  six-hole  velocity 
vector  probe  in  a  recirculating  flow  region 

o  Develop  a  two-dimensional  fuel  manifold  design 
for  a  two-dimensional  hot  flow  rig 

Investigate  the  fuel  and  airflow  distribution 
as  affected  by  the  addition  of  a  "wiggle  strip"  . 
in  the  flow  gap 


o 
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Figure  64.  Double-Entry  Water-Model 
Predicted  Flow  Patterns. 
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Figure  66.  Two-Dimensional  Cold-Flow  Rig 


Velocity  mapping  with  the  rig  was  conducted  with  the  use  of 
cold  airflow  and  the  following  probes: 

o  Cobra  probe,  1/8- inch  diameter 

o  Wedge  probe,  1/4-inch  diameter 

o  Six-hole  vector  probe,  1/4-inch  diameter 

Flow  gaps  used  were  0.05  inch  and  0.100  inch,  with  air  veloci¬ 
ties  ranging  from  100  feet  per  second  to  350  feet  per  second. 

Most  of  the  mapping  was  limited  to  the  center  vertical  plane, 
with  some  additional  data  taken  in  planes  2.5  inches  on  each 
side  of  center.  The  data  taken  indicated  some  nonuniformity 
of  flow  from  one  plane  to  the  other,  even  though  uniform  flow 
was  measured  along  the  length  of  the  0.05-  and  0.10-inch  flow 
discharge  gaps. 

5. 1.2. 2.1  Test  Results 

A  schematic  of  the  flow  field  typically  obtained  is  given  in 
Figure  67,  showing  a  high-velocity  region  close  to  the  lower 
wall  and  a  recirculating  region  filling  the  bulk  of  the  model. 
The  initial  point  of  recirculation  fell  outside  the  model 
discharge  opening  (confirming  results  obtained  from  the  water 
model  of  the  same  configuration)  and  extended  back  into  the 
model  for  about  three-quarters  of  its  length.  An  almost 
stagnant  region  was  found  to  exist  between  the  limits  of  the 
recirculating  region  and  the  wall  shielding  the  fuel- 
distribution  plate.  Oscillating  flow  and  high  turbulence  were 
observed  at  the  interface  region  of  the  high-velocity  down¬ 
stream  flow. 

Of  primary  interest  was  the  data  obtained  with  the  use  of  the 
1/4-inch-diameter,  six-hole  vector  probe,  since  a  probe  of 
this  basic  design  was  later  used  to  map  the  flow  fields  in 
the  hot  rigs  (with  combustion) .  The  results  obtained  indi¬ 
cated  that  velocity  vectors  could  be  obtained  with  a  fair 
degree  of  accuracy  by  observing  the  maximum  measured  pressure 
and  the  pressure  on  either  side  of  this  maximum  pressure.  A 
curve  was  then  faired  through  the  points  taken  such  that  it 
was  symmetrical  over  120  degrees  and  passed  through  the  maxi¬ 
mum  measured  pressure  and  the  pressures  measured  60  degrees 
on  either  side.  The  peak  of  this  faired  curve  then  gives  the 
direction  of  flow  and  total  pressure  at  this  point.  The  air 
velocity  at  this  point  (measured  previously  by  means  of  the 
wedc^  probe)  was  then  used  to  calculate  the  static  pressure 
at  tne  point.  It  was  found  that  for  the  probe  design  used, 
static  pressures  were  approximately  40  degrees  on  either  side 
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of  the  true  total  on  the  faired  curve.  These  results  indi¬ 
cated  that  although  the  method  is  somewhat  tedious  and  relies 
on  some  curve  fairing,  a  probe  of  this  design  could  be  used 
with  some  degree  of  confidence  for  velocity  vector  measure¬ 
ments  in  a  flow  field  of  known  density. 

This  rig  was  used  for  development  of  a  fuel  manifold  design 
for  the  two-dimensional  hot-flow  rig.  The  fuel  meinifold  had 
0.0135-inch-diameter  fuel  discharge  orifices  drilled  on  1.0-  * 

inch  centers. 

This  manifold  (tested  without  airflow) ,  in  conjunction  with 

the  fuel  distribution  plate,  provided  uniform  fuel  distribu-  » 

tion  in  the  test  section  for  fuel-flow  rates  tested  from  3 

pounds  per  hour  up  to  15  pounds  per  hour.  The  uniformity  of 

the  fuel  distribution  was  primarily  the  result  of  the  surface 

tension  at  the  end  of  the  stainless  steel  fuel-distribution 

plate. 

With  the  addition  of  airflow  through  the  flow  gap,  no  satis¬ 
factory  method  could  be  devised  to  ensure  that  this  film  was 
transferred  from  the  distribution  plate  across  the  flow  gap 
to  the  rig  wall.  Some  improvement  was  observed  when  air  was 
introduced  into  the  fuel  distribution  section,  but  a  signifi¬ 
cant  amount  of  the  fuel  was  still  atomized  by  the  flow  gap  air 
as  it  left  the  lip  of  the  distribution  plate. 

A  wiggle  strip  (0.01  inch  thick,  0.5  inch  wide,  with  a  1.0- 
inch  wavelength)  was  inserted  into  the  flow  gap  in  an  attempt 
to  provide  a  "path"  for  the  fuel  across  the  air  gap  to  the 
bottom  wall.  This  wiggle  strip  did  not  significantly  alter 
the  results.  It  was  noted,  however,  that  when  fuel  was  depos¬ 
ited  on  the  bottom  wall,  the  discrete  fuel  streams  were 
created  where  the  wiggle  strip  made  contact  with  the  bottom 
wall.  The  results  suggested  that  for  the  typical  L-pipe  with 
dome  cooling  band  configuration  much  of  the  fuel  is  atomized 
at  the  flow  gap  rather  than  transferred  to  and  evaporated 
from  the  combustor  wall  as  originally  theorized. 

5. 1.2. 2. 2  Comparison  of  Analytical  and  Experimental  Velocity 
Profiles 

‘  f 

Figure  68  shows  a  comparison  of  experimental  velocity  measure¬ 
ments  and  those  predicted  by  the  analytical  model  for  several 
inlet  air  velocities  and  different  axial  locations.  It  is 
apparent  from  the  data  that  more  measurements  should  have  been  » 

taken  for  the  region  close  to  the  wall,  and  ideally  a  smaller 
probe  should  have  been  used.  (The  probe  used  represented  18 
percent  of  the  total  flow  height,  and  undoubtedly  this 
created  errors  in  the  measurements.)  In  spite  of  the  above 
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limitations  in  the  test  procedure,  the  analytical  and  experi¬ 
ments]  results  agreed  reasonably  well,  and  the  recirculation 
region  is  accurately  defined  by  the  analytical  model.  In 
Figure  68  the  constant  Z  .  is  from  the  turbulent  kinetic 
energy  relationship:  ^ 

k  =  Zuk  V2  (72) 

Attempts  were  made  to  correlate  the  data  more  accurately  by 
varying  the  value  of  the  constant  the  effect  of  this 

variation  is  also  shown  in  Figure  68.  Without  more  extensive 
experimental  mapping,  however,  no  definite  conclusions  can  be 
drawn,  but  it  is  strongly  indicated  that  a  more  realistic 
viscosity  model  could  help  in  the  overall  model  credibility. 

5.1.2. 3  Two-Dimensional  Hot-Flow  Rig 

The  hot-flow  rig  (Figure  69)  consisted  of  a  two-dimensional 
test  section  with  the  same  physical  dimensions  as  the  cold- 
flow  rig  discussed  previously. 

The  purposes  of  the  tests  conducted  with  this  rig  were  to: 

o  Measure  velocity  and  temperature  profiles, 
gaseous  emissions  and  flame  radiation  in  a 
two-dimensional  flow  field  with  combustion  for 
comparison  with  analytical  solutions 

o  Measure  fuel  film  evaporation  characteristics 
in  a  combustor  environment 

o  Establish  design  feasibility  of  instrumentation 
for  measuring  velocity  and  temperature  prior  to 
pressure  rig  tests 

Rig  instrumentation  included  the  following: 

o  Gas  Temperature  Measurement  -  A  platinum/ 
platinum  10  percent  rhodium  aspirated 
water-cooled  thermocouple  (shown  in  Figure  70) 
was  used  to  map  temperature  profiles  within 
the  primary  zone.  Because  gas  temperatures  in 
subsequent  primary-zone  pressure  rig  tests  w er: 
anticipated  to  le  approximately  3500°F  (above 
the  temperature  range  of  Pt/PtlO%Rh 
thermocouples) ,  a  double  sonic  temperature 
probe  was  also  fabricated  (Figure  71) .  The 
probe  was  tested  in  this  rig  to  obtain  a 
calibration  against  the  Pt/PtlO%Rh  thermo¬ 
couple. 
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Figure  69.  Hardware  for  Atmospheric  Primary-Zone  Rig 
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Figure  /O.  Water-Cooled,  Shielded,  Platinum/Platinum 
10-Percent  Rhodium  Thermocouple. 
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Velocity  Measurement  -  A  six-hole  U-tube  vector 
probe,  water  cooled  as  shown  in  Figure  72,  was 
used  to  measure  velocity  vectors.  The  U-tube 
design  was  necessary  to  provide  a  sufficient 
cooling  water  flow  rate. 

o  Radiation  Measurement  -  Leeds  and  Northrup 
double-mirror  Rayotubes  (shown  in  Figure  73) 
were  used  to  obtain  flame  radiation. 

o  Emission  Measurement  -  The  water-cooled  probe 

shown  in  Figure  74  was  used  to  obtain  continuous 
gaseous  emission  samples.  The  sample  analysis 
equipment  included  two  nondispersive  infrared 
analyzers  for  measurement  of  carbon  monoxide  and 
carbon  dioxide,  a  heated  flame  ionization  detector 
to  measure  total  unburned  hydrocarbons ,  and  a 
chemiluminescent  analyzer  to  measure  oxides  of 
nitrogen. 

5 . 1 . 2 . 3 .  .1  Test  Results 

Results  of  the  Pt/PtlO%Rh  thermocouple  survey  are  shown  in 
Figures  75  and  76  for  two  fuel  flows  and  three  vertical  planes. 
These  fuel  flows  were  selected  such  that  at  the  higher  flow 
(64  pounds  per  hour)  the  fuel  film  could  be  observed  at  the 
burner  discharge  plane,  and  at  the  lower  fuel  flow  (36  pounds 
per  hour)  the  fuel  film  had  evaporated  before  reaching  the 
burner  discharge  plane  as  indicated  by  the  centerline  lower- 
wall  thermocouple.  This  was  also  checked  visually,  and  a 
stable  flame  could  be  seen  in  the  burner.  Combustion  stabil¬ 
ity  was  a  problem  in  this  primary-zone  rig.  Even  at  the  lower 
fuel  flow,  burner  fuel-air  ratio  was  extremely  high  (f/a=0.343). 
Reducing  the  fuel  flow  to  less  than  25  pounds  per  hour  resulted 
in  flame  instability  and  partial  blowout  across  the  channel. 

As  shown  by  Figures  75  and  76,  the  flame  was  not  uniformly 
two-dimensional  but,  in  the  three  planes  surveyed,  exhibited 
the  same  basic  profile.  The  flame  region  began  close  to  the 
lower  wall  and  moved  upward  down  the  length  of  the  burner. 

In  the  case  of  the  center  surveys ,  the  flame  appeared  to 
originate  at  the  flow  gap;  whereas  in  the  case  of  the  off- 
center  planes,  the  flame  appeared  to  originate  farther  down¬ 
stream. 

Calibration  of  the  double-sonic  probe  against  the  Pt/PtlO%Rh 
pi“obe  was  complicated  by  the  inherent  instability  of  the 
flau'e  and  by  some  mechanical  failures  due  to  differential 
themal  expansion  of  the  separate  tubes  comprising  the  probe. 
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(c)  2-1 '2  INCHES  RIGHT  OF  CENTER  LOOKING  FROM  DISCHARGE  END 

EM3  LESS  THAN  1600°F 

INLET  CONDITIONS  (SET) 

1  1  1600  TO  1800°F 

W,  *  105  LB/HR 

fimnnn  isooto  2ooo°f 

Vggp  =  300  FT/SEC 

2000  TO  2300°F 

Ta  =  795/810°F 

mm  >23oo°f 

Wf  =  64  LB/HR 

Figure  75. 

Two-Dimensional  Atmospheric  Rig 
Temperature  Distribution. 

(a)  2-1/2  INCHES  LEFT  OF  CENTER  LOOKING  FROM  DISCHARGE  END 


(c)  2-1/2  INCHES  RIGHT  OF  CENTER  LOOKING  FROM  DISCHARGE  END 


E£5!3  LESS  THAN  1600°F 
r  I  1600  TO  1800°F 
1800  TO  2000°  F 
2000  TO  2300°F 
GREATER  THAN  2300°F 


INLET  CONDITIONS  (SET) 
Wa  =  106  LB/HR 

V, (ot  -  300  FT/SEC 
Ta *  792°F 

W,  =  36  LB/HR 


Figure  76.  Two-Dimensional  Atmospheric  Rig 
Temperature  Distribution. 


Double-sonic  temperatures  were  calculated  by  first  applying 
a  geometric  calibration  factor: 


=  geometric  calibrated  gas  temperature 

A^  =  upstream  nozzle  throat  area 

A2  =  downstream  nozzle  throat  area 

=  gas  total  pressure 

P2  =  downstream  total  pressure 

T2  =  downstream  measured  temperature 

This  calibrated  temperature  was  then  divided  into  the  tern* ' ma¬ 
ture  measured  by  the  Pt/PtlO%Rh  probe  at  the  same  location,  and 
the  values  obtained  were  averaged  to  obtain  the  true  calibra¬ 
tion  factor  and  error. 


The  final  calibration  used  to  calculate  the  gas  temperature  was 


T 

gas 


T, 


(74) 


Velocity  maps  were  obtained  using  the  six-hole  vector  probe. 
Test  conditions  and  probe  location  points  were  set  to  be  the 
same  as  those  set  for  the  Pt/PtlO%Rh  thermocouple,  thus  provid¬ 
ing  temperature  data  for  density  calculations.  From  the  pres¬ 
sures  obtained  from  the  velocity  vector  probe,  and  the  cal¬ 
culated  density  values,  local  velocities  and  directions  were 
calculated. 

Figure  77  shows  center  plane  velocity  vectors  for  fuel 
flows  of  64  pounds  per  hour  and  36  pounds  per  hour  with  slot 
inlet  velocity  of  approximately  300  feet  per  second.  The 
high  fuel-flow  condition  indicates  no  recirculation  region, 
whereas  the  lower  flow  shows  recirculation  in  the  upper  half 
of  the  combustor. 

Emission  data  was  recorded  for  an  inlet  slot  velocity  of  300 
feet  per  second,  at  fuel  flows  of  36  and  64  pounds  per  hour. 
Probe  surveys  were  taken  at  the  burner  exit  in  three  planes 
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with  five  positions  each.  The  combustor  inlet  air  was  viti¬ 
ated  and  the  temperature  was  equal  to  800°F,  and  background 
emission  data  was  taken. 

Typical  emission  data  is  shown  in  Table  XI.  Unburned  hydro¬ 
carbons  are  seen  to  increase  substantially  toward  the  bottom 
of  the  rig,  where  the  fuel  was  evaporating.  At  all  points  the 


TABLE  XI.  PRIMARY-ZONE  SUBELEMENT  RIG  EMISSION  DATA 
_ IN  THE  CENTRAL  PLANF. _ 


Fuel  Flow  =  36  lb/hr 


Probe  Height 
from  Bottom 
(inches) 

co2 

(percent) 

HC 

(ppm) 

NO 

(ppn) 

N°X 

(ppm) 

1.125 

3.12 

1,750 

2.5 

3.8 

0.875 

2.49 

1,900 

3.0 

4.0 

0.625 

1.784 

3,500 

3.0 

4.5 

0.375 

2.14 

7,000 

6.5 

6.5 

0.125 

5.08 

13,500 

14.0 

7.0 

Fuel  Flow  =  64  lb/hr 

1.125 

5.8 

5,600 

9.0 

6.0 

0.875 

4.9 

7,000 

8.0 

9.5 

0.625 

5.7 

10,500 

17.0 

10.5 

o.  s'7:- 

5.7 

13,000 

14.0 

10.0 

0.125 

4.4 

15,000 

12.0 

10.0 

Combustor  inlet  air  emissions: 

C0„  =  2.23%,  CO  =  12.8%,  N0v  =  20  ppm 

Z  A 

HC  =  30  ppm 

Inlet  air  temperature  =  800°F 

Inlet  slot  velocity  =  300  ft/sec 

CO  greater  than  2500  ppm  at  all  points 


NO  level  was  less  than  the  combustor  inlet  level,  and  in  some 
cales  less  than  the  NO  alone.  These  abnormalities  were  attrib¬ 
uted  to  the  excessively  high  hydrocarbon  levels,  resulting  in 
partial  NO  decomposition. 

The  fuel  evaporation  data  shown  in  Figures  78  and  79  were 
obtained  in  the  two-dimensional  hot-flow  rig  using  lower-wall 
thermocouples.  Fuel  flows  were  varied  from  25  pounds  per  hour 
to  64  pounds  per  hour,  with  air  inlet  velocity  and  temperature 
'  equal  to  approximately  300  feet  per  second  and  8QQ°F,  respec¬ 

tively.  Center  plane  readings  show  that  for  fuel  flows  of  45 
pounds  per  hour  and  65  pounds  per  hour,  the  fuel  film  extends 
the  length  of  the  combustor  (verified  visually) ,  whereas  when 
t  t>-e  fuel  flow  was  reduced  to  35  pounds  per  hour,  fuel  film 

evaporation  was  essentially  complete  at  about  2.75  inches 
downstream  of  the  inlet  slot.  This  was  also  found  to  be  the 
case  for  25  pounds  per  hour  fuel  flow.  Fuel  flows  below  25 
pounds  per  hour  were  not  possible  due  to  lean  blowout  occur¬ 
ring  below  this  value.  Readings  at  a  plane  2.5  inches  off 
center  did  not  clearly  show  evaporation  length,  which  indicated 
nonuniformity  of  the  film. 

To  supplement  the  film  evaporation  data  obtained  from  this  rig 
a  film  evaporation  plate  (shown  in  Figure  80)  was  tested  in 
the  fuel  injector  rig  under  more  controllable  conditions. 

Fuel  film  length  was  also  determined  by  thermocouples  mounted 
flush  with  the  surface  and  located  at  0.25-inch  intervals 
along  its  centerline.  Test  conditions  are  listed  in  Table  XII. 


TABLE  XII.  FUEL  EVAPORATION  PLATE 
FUEL- INSERT ION  RIG 

TEST  CONDITIONS, 

Air  Velocity 

Pressure 

Temperature 

(ft/sec) 

(atm) 

(°F) 

50 

1 

300,  400,  650 

4 

650 

8 

650 

100 

1 

3C0 ,  400,  650 

4 

650 

200 

1 

300,  400,  650 

4 

650 

« 
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FUEL  FLOW  (LB/HR) 


O  25 

T3AIR  •  800OF  □  35 

A  45 
O  64 
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0  0.5  1.0  1.5  2.0  2.5  3.0  3.5  4.0 

COMBUSTOR  LENGTH  -  INCHES 


Figure  78.  Two-Dimensional  Atmospheric  Rig  -  Fuel 
Evaporation,  Centerline  Thermocouples 
Only. 
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TEMPERATURE  -  OF 


FUEL  FLOW  (LB/HR) 


O  25 

T3AIR  "  WF  □  35 

A  45 
O  64 


Figure  79.  Two-Dimensional  Atmospheric  Rig  -  Fuel 
Evaporation,  Thermocouples  2 . 5  Inches 
Left  and  Right  of  Centerline. 


The  experimental  data  obtained  was  limited  to  pressures  not 
exceeding  8  atmospheres  and  temperatures  not  exceeding  650°F 
to  avoid  detonation  at  higher  pressure  and  temperatures .  The 
point  of  significant  temperature  increase  was  defined  as  the 
end  of  the  film.  The  effect  of  varying  the  temperature  from 
300°F  to  400°F  could  not  be  accurately  determined,  as  the  final 
point  of  fuel  evaporation  could  not  be  readily  located.  At 
the  higher  air  temperature  condition  (650°F) ,  evaporation 

*  lengths  could  clearly  be  determined. 

5.1. 2. 3. 2  Comparison  of  Analytical  and  Experimental 
Evaporation  Rates 

A 

Figures  81,  82,  and  83  show  the  measured  film-evaporation 
rates,  the  initial  predictions  (Section  4.3.1),  and  predic¬ 
tions  with  updated  heat-transfer  coefficients  for  1,  4,  and  8 
atmospheres'  pressure.  The  initial  predictions  were  essentially 
linear  with  fuel  flow.  The  measured  rates  show  good  agreement 
with  predictions  at  low  fuel  flows,  but  show  shorter  evapo¬ 
ration  lengths  at  high  fuel  flows.  This  effect,  reported  by 

30 

Kinney  and  Abramson,  is  the  result  of  the  fuel  film  thick¬ 
ness  entering  the  turbulent  portion  of  the  wall  boundary  layer 
producing  film  rippling,  which  approximately  doubles  the  heat- 
transfer  rate.  This  occurs  when  the  following  wall-distance 
parameter  exceeds  a  value  of  21: 


+ 

y 


/ypQ 

po/po 


(75) 


where 

Y+  =  wall-distance  parameter 

t  =  wall  shear  stress 
o 

pQ  =  fluid  density  at  wall 
yQ  =  fluid  viscosity  at  wall 


The  above  parameter  is  directly  related  through  integration  of 
the  universal  turbulent  velocity  profile  to  a  flow-rate  param¬ 
eter  defined  as 


+ 


w 


Wf/Z 

“pv~ 


(76) 


157 


ORIGINAL  PREDICTION 
UPDATED  PREDICTION 

tAIR  “  650°F 

Pair  -  1  A™ 


MEASURED  DATA 

O  VA|R  =  200  FT/SEC 
A  VA,R  =  100  FT/SEC 
□  VAIR  =  50  FT/SEC 


EVAPORATION  LENGTH  -  INCHES 


Figure  81.  Film  Evaporation  Lengths 
at  1  Atmosphere. 
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FUEL  FLOW  -  LB/HR 


MEASURED  DATA 

O  VA|R  =  200  FT/SEC  TAIR  =  650°F 

A  vAm  ■  100  rrsEc  pair=4A™ 

□  VA|R=  50  FT/SEC 
PLATE  WIDTH  =  4  IN. 


Figure  82. 


Film  Evaporation  Lengths  at  a 
Pressure  of  4  Atmospheres. 
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■  .  i—  ORIGINAL  PREDICTION  MEASURED  DATA 

- UPDATED  PREDICTION  A  V/  |R  -  100  FT/SEC 

tA|r  -  660° F  □  VA|R  «  50  FT/SEC 

f*AJR  .  8  ATM  F1ATE  WIDTH  -  4  IN. 


EVAPORATION  PLATE  -  INCHES 


Figure  83.  Film  Evaporation  Lengths 
at  4  Atmospheres. 
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where  Z  =  wall  width,  ft 

p  =  fuel  density,  lb  per  cu  ft 

v  =  fuel  kinematic  viscosity,  sq  ft  per  sec 

+  + 

The  w  parameter  is  more  convenient  than  y  and  has  a  value  of 

163  when  y+  is  21.  For  the  conditions  of  the  4-inch-wide  flat- 

plate  tests,  this  value  of  w+  occurs  at  a  fuel  flow  rate  of 
about  40  pounds  per  hour.  This  is  the  level  of  flow  at 
which  the  measured  length  data  begins  to  deviate  from  linearity. 
Based  on  correlation  of  the  data,  the  following  relation  for 

*  heat-transfer  coefficient  was  obtained: 

h  * 

JP  -  1.0  +  0.011  w  (77) 

x 

where  w  =  fuel  flow  per  unit  width,  lb  per  hr  per  ft 
h  *  =  rippled  film  heat-transfer  coefficient 

X 

h  =  normal  film  heat-transfer  coefficient 
x 

The  value  of  h  is  given  by  Equation  (29),  Section  4.3.1,  for 
radial  flow.  £or  a  flat  plate  or  cylindrical  wall,  a  more 
appropriate  h  is  given  by  Kays.4* 

A 

Nu  =  0.0295  Pr°‘ 6Rn  9,8  (78) 

X  X 

where  Nu  =  local  Nusselt  number  (h  x/k) 

X  X 

Pr  =  gas  Prandtl  number 
Rn  =  length  Reynolds  number 

This  relation  was  used  for  the  flat-plate  predictions.  Updated 
predictions  give  good  agreement  with  the  data  in  most  cases. 
During  testing  at  1  atmosphere,  it  was  observed  that  in  some 
cases  the  film  did  not  spread  uniformly  across  the  plate.  This 
represents  the  major  uncertainty  in  the  data. 

Figure  84  shows  the  typical  variation  of  fuel-film  temperature 
t  as  a  function  of  fuel  flow  at  4  atmospheres.  Predicted  temper- 

*  atures  agree  well  with  measured  values  over  the  initial  lengths 
but  are  lower  at  the  end  point.  This  is  attributed  to  axial 
conduction  effects  in  the  0.5-inch-thick  test  plate  which  are 
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Figure  84.  Fuel  Film  Predicted 

and  Measured  Temperature. 
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neglected  in  the  analysis.  Conduction  effects  in  an  actual 
thin-wall  combustor  should  be  negligible. 

In  all  cases,  the  predicted  95-percent  end-point  falls  within 
the  region  of  steep  rise  in  measured  temperatures  that  defines 
the  region  of  final  boiling. 

Based  on  these  results  it  was  concluded  that  this  model  could 
oe  successfully  used  to  define  evaporation  lengths  for  guid¬ 
ance  in  fuel  nozzle  spacing  and  as  an  input  to  the  primary- 
zone  model. 

5. 1.2. 3. 3  Comparisons  of  Analytical  and  Experimental 

Profiles  for  the  Two-Dimensional  Hot-Flow  Model 

Figure  85  presents  a  comparison  between  the  experimentally 
obtained  and  analytically  calculated  temperature  profiles  for 
the  36-pound-per-hour  fuel  flow  as  a  function  of  passage  height 
at  different  axial  distances  downstream  of  the  inlet  slot. 

These  profiles  are  typical  of  those  obtained  at  each  of  the 
four  axial  data  positions  in  the  primary  zone,  with  the  follow¬ 
ing  expected  trends  observed  as  a  function  of  increasing  axial 
distance : 

o  The  temperature  peak  at  the  point  of  maximum  axial 
velocity  becomes  less  pronounced. 

o  The  maximum  temperature  along  the  duct  passage 
height  is  reduced. 

The  same  qualitative  trends  are  seen  in  both  experimental  and 
analytical  profiles;  however,  the  quantitative  agreement  is 
limited.  Several  simplifications  in  the  method  of  analysis 
and  physical  hardware  limitations  may  account  for  this  lack 
of  quantitative  agreement: 

o  Perhaps  most  significant  is  the  strong  indication 

that  a  more  rigorous  method  of  predicting  turbulent 
flow  conditions  is  needed.  The  concept  that  there 
is  a  close  relationship  of  Reynolds  stress  to  tur¬ 
bulent  energy  should  be  employed,  and  it  is  evident 
that  the  energy  values  used  should  be  derived  by 
solution  of  the  transport  equation. 

o  The  fact  that  the  effect  of  the  un vaporized  residual 
fuel  in  the  gas  stream  was  not  accounted  for  is 
another  source  of  analytical  inaccuracy.  There  is 
no  real  quantitative  evidence  of  what  portion  of  the 
total  fuel  flow  is  represented,  or  of  the  variation 
of  fuel  distribution  along  the  width  of  the  vaporizing 
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Figure  85.  Comparison  of  Experimental  and  Analytical  Temperature 
Profiles  at  Different  Axial  Distances  Downstream  From 
Inlet  Slot. 


surface,  and  therefore  no  quantitative  evidence  of 
local  fuel-air  ratios . 

o  The  flow  field  is  assumed  to  be  strictly  two- 

dimensional  when  in  fact  it  is  subject  to  three- 
dimensional  effects . 

c  The  flow  field  is  assumed  to  have  adiabatic  boundaries 
t  when,  actually,  there  is  some  heat  transfer  through 

the  duct  walls. 

Figure  86  is  a  similar  plot  of  axial  velocity  profiles  as  a 
t  function  of  duct  height  for  the  discharge  plane  of  the  duct 

at  different  axial  distances  downstream  of  the  inlet  slot. 

Again  the  qualitative  agreement  between  measured  and  calculated 
data  is  consistent,  but  quantitatively  the  correlation  is 
lacking  due  to  the  limitations  outlined  above. 

5. 1.2. 4  Three-Nozzie-Sector  Primary-Zone  Rig 

The  pressure  rig  was  designed  for  testing  primary-zone  annular 
segments  at  pressures  up  to  16  atmospheres.  The  annular  seg¬ 
ments  represented  primary  zones  for  each  of  the  three  fuel- 
injection  systems  (air-assist,  pneumatic-impact,  and  L-pipe) . 

The  instrumentation  developed  in  the  two-dimensional  primary- 
zone  rig  was  utilized  with  a  traverse  system  having  three 
degrees  of  freedom.  The  purpose  of  testing  with  this  rig  was 
to  evaluate: 

o  Burning-zone  location 

o  Velocity  and  temperature  profiles 

o  Ignition  energy  requirements 

c  Flame  radiation 

5. 1.2. 4.1  Test  Section  Description 

The  following  rig  and  hardware  were  used  in  the  test  program: 

o  Basic  rig  assembled  on  the  support  cart,  shown  in 
Figure  87(a) . 

t  o  Primary  test  section  plenum,  shown  in  Figure  87(b). 

o  L-pipe  primary-zone  sector,  shown  in  Figure  88. 
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Figure  86.  Comparison  of  Analytical  and  Experimental  Velocity  Profiles 
at  Various  Axial  Distances  Downstream  From  Inlet  Slot. 
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o  Air-assist  and  pneumatic-impact  primary-zone  sector, 
shown  in  Figure  89.  (The  same  primary-zone  sector 
was  used  for  both  fuel  nozzle  types.) 

o  Air-assist  fuel  nozzle  assembly,  shown  in  Figure  90. 

o  Pneumatic-impact  fuel  nozzle  assembly,  shown  in 
Figure  91. 

5. 1.2. 4. 2  Test  Results 

Initial  testing  was  conducted  with  each  section  in  an  atmo¬ 
spheric  rig  to  visually  observe  flame  location  and  quality. 

The  L-pipe  primary-zone  sector  was  subsequently  tested  ir.  the 
pressure  rig. 

Atmospheric  testing  of  the  air-assist  atomizer  primary  zone  was 
conducted  with  air-assist  pressure  varying  from  0  to  30  psi. 

A  value  of  10  psi  was  considered  optimum  and  was  used  for  the 
major  part  of  the  tests.  Results  showed  a  lack  of  stability, 
and  high  fuel-air  ratios  were  required  to  distribute  the  flame 
completely  throughout  the  sector  (indicating  the  possible  need 
for  reduced  fuel  nozzle  spacing) .  Testing  with  thermal  paint 
indicated  liner  wall  local  temperatures  in  excess  of  1700°F. 
Similar  overheating  problems  were  encountered  with  the 
pneumatic- impact  nozzle  tests.  It  was  suspected  that  the 
liner  overheating  in  both  cases  was  due  to  fuel  droplets 
reaching  the  liner  wall  and  burning  at  this  location. 

With  the  pneumatic- impact  nozzle,  tests  showed  good  stability 
and  flame  quality  without  air  preheat.  With  the  addition  of 
preheat,  however,  pulsing  and  instability  resulted.  This 
could  be  caused  by  some  fuel  evaporating  in  the  nozzle  fuel 
tube  prior  to  discharqe  into  the  venturi.  The  fuel  tubes 
were  insulated  and  re  tested,  but  no  improvement  was  observed. 

An  attempt  to  reduce  droplet  impingement  on  the  walls  and  to 
increase  recirculation  and  stability  within  the  pneumatic- 
impact/air-assist  sector  was  made  by  including  a  10-vane  radial 
swirler  system,  shown  in  Figure  92.  Results  obtained  with  these 
radial  swirlers,  using  JP-4  and  JP-5  fuel,  indicated  improved 
(and  almost  identical)  light-off  and  stability  performance  for 
both  the  pneumatic-impact  and  air-assist  systems.  Flame 
quality  was  improved,  particularly  in  the  case  of  the  air- 
assist  system,  which  exhibited  a  well-formed,  nonluminous 
flame.  The  pneumatic- impact  system  produced  a  slightly  poorer 
formed  and  more  luminous  flame.  In  neither  case  were  wall 
temperatures  reducea  to  an  acceptable  level. 
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Figure  90.  Air-Assist  Fuel  Nozzle  Assembly. 


Figure  91.  Pneumatic-Impact  Fuel  Nozzle. 


171 


.  -v  v*'- 


172 


V 


Fuel  distribution  observations  using  the  L-pipe  sector  indi¬ 
cated  that  significant  gravity  effects  were  present  in  both 
the  L-pipes  and  on  the  back  wall  of  the  dome.  Fuel  could  be 
seen  dripping  from  the  L-pipe  discharge,  and  the  fuel  that 
reached  the  dome  from  the  L-pipes  (situated  at  the  top  of  the 
annulus.  Figure  93)  sprt ad  downward  until  it  completely 
covered  the  rear  wail  of  the  dome. 

Tests  with  combustion  resulted  in  problems  at  low  fuel  flows. 
These  were  due  to  the  lack  of  flame  propagation  to  the  three 
nozzles.  At  high  fuel  flows,  however,  the  combustor  burned 
as  a  full  annular  system,  with  the  flame  propagating  throughout 
the  annulus  and  not  being  contained,  as  intended,  in  the 
vicinity  of  the  three  injectors. 

Air  preheat  of  550°F  did  not  provide  sufficient  evaporation  of 
the  film  to  limit  this  spreading.  Lean -blowout  tests  showed 
a  lack  of  stability  in  the  system  and  indicated  the  necessity 
for  a  design  change. 

The  modification  made  was  to  insert  axial  swirlers  in  the  dome 
back  wall  in  line  with  each  L-pipe,  as  shown  in  Figure  94.  This 
modification  was  designed  to  create  a  low-pressure  region  at 
the  center  of  the  swirlers  and,  thus,  provide  some  increased 
recirculation  and  stability.  This  also  resulted  in  an  effec¬ 
tively  increased  pressure  drop  across  the  L-pipe  to  assist  in 
overcoming  the  gravity  effects  on  the  fuel  at  the  L-pipe  dis¬ 
charge.  Atmospheric  testing  of  this  configuration  showed  that 
stability  and  flame  quality  were  significantly  improved  and 
that  the  flame  was  within  the  boundaries  of  the  sector  as 
intended.  Further  testing  with  this  combustor  was  therefore 
conducted  in  the  pressure  rig. 

Initial  temperature  profile  mapping  was  conducted  with  the 
L-pipe  segment  at  a  pressure  of  1  atmosphere  using  the 
water-cooled  Pt/PtlQ%Rh  thermocouple.  The  primary  purpose 
of  this  test  was  to  provide  data  for  the  calibration  of  the 
modified  double-sonic  probe.  The  results  obtained  showed  an 
acceptable  circumferential  temperature  distribution  and  an 
almost  flat  radial  profile.  However,  fuel  flow  requirements 
for  stable  combustion  were  found  to  be  more  than  twice  those 
measured  previously  in  the  atmospheric  rig.  Possible  causes 
for  this  difference  were  noted,  and  each  was  individually 
checked.  Results  from  this  series  of  checks  indicated  the»t 
when  cooling  water  was  added  to  the  probe  and  rig  cooling  air 
was  used  to  back-pressure  the  discharge  blast  shield,  a  reduc¬ 
tion  in  lean  stability  was  experienced.  However,  this  lean 
stability  reduction  was  not  sufficient  to  fully  explain  the 
large  fuel  flow  required.  The  only  remaining  possibility  was 
that  the  orientation  of  the  fuel  delivery  tubes  relative  to 
gravitational  effects  was  the  cause. 
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IRIENTATION  DURING  INITIAL  PRESSURE  RIG  TESTS 

93.  L-Pipe  Orientation  During  Atmospheric  Rig 
and  Pressure  Ria  Test. 


Testing  in  the  atmospheric  rig  had  been  undertaken  with  the 
center  L-pipe  in  the  vertical  position  and  the  other  two  fuel 
pipes  positioned  at  45  degrees  to  the  right  and  left  of  this 
vertical  fuel  pipe,  as  depicted  schematically  in  Figure  93. 

In  this  configuration,  all  the  fuel  tubes  had  some  gravity 
assistance  in  transporting  the  fuel  through  the  L-pipe. 

Testing  in  the  pressure  rig  had  been  undertaken  with  the  sector 
turned  through  135  degrees  (Figure  93 — i.e.,  with  one  fuel  tube 
'‘upside  down,"  one  fuel  tube  horizontal,  and  the  center  fuel 
tube  between  these  two,  at  45  degrees  to  the  vertical  and  hori¬ 
zontal)  .  With  the  lack  of  gravity  assistance,  the  possibility 
existed  that  the  fuel  was  backing  up  in  the  L-pipe  and  running 
around  the  outside  of  the  combustQr.  Disassembly  of  the  rig 
and  inspection  of  the  combustor  revealed  fuel  stains  at  the 
lower  swirler  location  and  around  the  cooling  slots.  In  addi¬ 
tion,  the  swirler  and  a  small  portion  of  the  cooling  band  were 
melted. 

Tht1  damaged  swirler  was  replaced,  the  cooling  slot  repaired, 
and  the  rig  reassembled  with  the  sector  positioned  with  the 
center  fuel  tube  vertical,  as  m  Figure  93.  A  further  pre¬ 
caution  was  taken  by  extending  the  length  of  the  fuel  delivery 
tubes  such  that  the  tube  discharge  location  within  the  L-pipe 
was  almost  at  the  L-pipe  90-degree  bend.  Stability  testing 
repeated  the  results  previously  obtained  in  the  atmospheric 
rig,  indicating  no  fuel  backup. 

Ignition  and  blowout  tests  conducted  with  the  inverted  and 
uoninverted  tubes  indicated  that  even  with  the  longer  fuel 
tube  some  fuel  backup  still  occurred  with  the  inverted  L-pipes 
at  pressure  drops  of  about  1  percent. 

5.1.3  Comburtor  Evaluation  Tests 

Subsequent  combustor  evaluation  tests  were  conducted  at  inlet 
air  pressures  of  6  to  12  and  16  atmospheres  and  inlet  air 
temperatures  of  up  to  820 °F.  The  objectives  of  the  tests 
were: 

o  To  obtain  additional  primary-zone  temperature 
data 

o  To  obtain  velocity  profile  data  to  validate 
the  flow-field  model 

o  To  measure  flame  radiation 

o  To  determine  ignition  characteristics 


Problems  experienced  throughout  the  testing  included: 

o  Instrumentation  failures  due  mainly  to  differential 
thermal  expansions  and  cooling  difficulties 

o  Combustor  warpage  due  to  only  three-eighths 

of  the  combustor  containing  the  burning  zone. 

o  Difficulty  in  determining  true  sector  fuel-air 
ratio 


o  Final  failure  of  the  combustor  due  to  wall  damage. 
This  damage  was  due  to  the  fact  that  only  a  sector 
of  the  combustor  contained  flame,  thus  causing  high 
thermal  gradients,  uneven  growth  and  eventually 
buckling  of  the  liner. 

5. 1.3.1  Temperature  Profiles 


Temperature  mapping  was  conduct  using  both  the  platinum/ 
platinum  10  percent  rhodium  and  tne  double-sonic  probes. 
Readings  were  taken  at  the  primary-zone  exit  plane  and  at 
three  planes  within  the  primary  zone.  The  center  L-pipe  was 
mapped  at  positions  in  line  with  the  L-pipe  at  22.5  degrees 
on  either  side  of  the  L-pipe.  At  each  of  these  locations, 
five  equally  spaced  probe  positions  were  set  across  the  height 
of  the  combustor.  Typical  data  obtained  are  presented  in 
Figures  95  and  96. 


5. 1.3. 2  Velocity  Profiles 

Velocity  mapping  using  the  six-hole  vector  probe  was  conducted 
at  locations  corresponding  to  those  mapped  with  the  tempera¬ 
ture  probe,  to  facilitate  local  density  calculations.  Typical 
profile  data  obtained  are  presented  in  Figures  97  and  98. 

At  1  atmosphere  a  strong  recirculation  zone  extends  from 
beyond  the  primary-zone  discharge  plane  to  the  dome.  Data 
obtained  at  6  atmospheres  showed  a  strong  recirculation  zone 
at  the  discharge  plane  (4  inches  down  from  the  dome  rear  wall) 
but  no  recirculation  at  a  plane  1  inch  down  from  the  dome 
wall. 


5.1. 3. 3  Analytical  Predictions 

Initial  predictions  for  the  primary-zone  flow  failed  to  con¬ 
verge,  and  for  this  reason  it  was  necessary  to  introduce  a 
blockage  into  the  flow  field-.  This  blockage  effectively  simu¬ 
lates  impinging  dilution-zone  jets  with  some  of  the  dilution 
air  then  recirculating  into  the  primary  zone,  as  shown  sche¬ 
matically  in  Figures  99  and  100. 
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T3  =  510°F 


Figure  95.  Temperature  Traverse  Data 
for  L-Pipe  Plus  Swirler 
Primary  Zone  (Axial  Position 
Is  at  the  Exit  Plane) . 
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Figure  96.  Temperature  Traverse  Data  for  L-Pipe  Plus 
Swirler  Primary  Zone  (Axial  Position  is 
3.0  Inches  in  From  Exit  Plane) . 
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Figures  101  and  102  show  typical  analytical  velocity  and  tem¬ 
perature  profiles  predicted  at  planes  located  0.3  inch  and 
1.58  inches  down  from  the  back  wall  of  the  dome.  The  profiles 
show  axial  components  for  both  cold  flow  and  flow  with  combus¬ 
tion  of  a  premixed  fuel-air  mixture  (fuel-air  ratio  =  0.062) . 
The  velocity  profiles  obtained  in  this  manner  compare  quali¬ 
tatively  with  those  obtained  experimentally  at  1  atmosphere 
in  the  L-pipe  primary  zone  shown  in  Figure  97. 

The  analytical  temperature  profiles  predicted  are  not  directly 
comparable  with  the  experimentally  obtained  profiles,  since  the 
solution  does  not  account  for  hot  gas  entrainment  into  the 
dilution  air  and  the  experimental  system  was  neither  premixed 
nor  at  the  same  fuel-air  ratio. 

5.1.4  Conclusions 


i 


The  following  conclusions  were  drawn  from  the  primary-cone 
testing  and  analytical  modeling: 

(a)  With  water  model  testing,  good  agreement  can 
be  obtained  between  analytical  predictions 
and  physical  flows  using  the  two-dimensional 
finite-difference  technique. 

(b)  Instrumentation  for  internal  mapping  of 
combustors  is  a  problem  because  of  the  high 
thermal  gradients  and  cooling  problems 
encountered. 

(c)  True  two-dimensionality  in  a  combustor  is  extremely 
difficult  to  attain. 

(d)  Fuel  atomization  systems  for  low-dorne-height 
combustors  must  be  designed  to  prevent  atomized 
fuel  from  impinging  on  liner  surfaces . 

(e)  L-pipe  fuel-injection  systems  in  low-airflow, 
low-pressure-drop  combustors  present  the 
problem  of  fuel  backing  up  in  the  pipe. 

(f)  Modeling  of  an  uncontained  primary  zone  is 

not  practical,  since  it  is  not  a  realistic  system 
for  testing.  An  effective  downstream  blockage 
simx.lating  the  dilution  zone  is  required  to 
obtain  convergence. 

(g)  The  primary-zone  analytical  model  is  sensitive  to 
grid  size  and  spacing. 
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Figure  101.  Primary-Zone  Velocity  and  Temperature 
Profiles  (Predicted) . 
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Figure  102.  Primary-Zone  Velocity  and  Temperature 
Profiles  (Predicted) . 
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(h)  A  more  realistic  viscosity  model  is  required  to 
more  exactly  model  the  primary  zone  analytically. 

5.2  PRIMARY-ZONE  IGNITION  ENERGY  REQUIREMENTS 

The  majority  of  gas  turbine  engines  use  spark  ignition  sys¬ 
tems  of  the  high-tension  capacitance-discharge  type.  Low- 
tensior  exciters  in  conjunction  with  shunted  surface  gap  ig¬ 
niters  may  become  more  desirable  as  igniter  durability  is 
improved.  These,  low-voltage  systems  offer  significant  reduc¬ 
tions  in  condenser  size,  cost,  and  EMI  output;  unlike  the 
air-gap  igniters,  they  are  not  subject  to  spark  suppression  as 
a  result  of  increased  operating  pressures. 

Generally,  20  to  30  percent  of  the  exciter-stored  energy  can 
be  delivered  to  the  igniter.  Here,  the  energy  is  further 
dissipated  into  noise  and  electromagnetic  radiation;  the 
remainder  is  finally  delivered  as  thermal  energy.  For  this 
analysis,  the  assumption  was  made  (based  on  work  by  Watson) 4 5 
that  2  percent  of  the  ignition  system  stored  energy  is 
delivered  in  the  form  of  thermal  energy. 


5.2.1 


lition  Model  Equation 


The  development  of  the  ignition  model  followed  the  analysis 
of  Lefebvre46  in  which  a  spark-ignited  spherical  volume 
(kernel)  of  a  critical  size  was  defined,  based  on  the  heat 
release  from  the  flame  surface  of  the  kernel  and  the  heat  loss. 
The  critical  size  kernel  of  diameter  d,  ft,  can  be  defined  by 

d  =  32400  Tu  1,67  U  °’67  /  P3  0,85  T3  0,93  (?9) 

where  Tu  =  turbulence  intensity  at  the  flame  surface 
U  =  mixture  velocity,  ft/sec 
P3  =  inlet  pressure,  lb/ft^ 

T3  =  inlet  temperature,  °R 

The  diameter  can  then  be  related  to  the  minimum  ignition 
energy,  E^n,  required  by  assuming  that  this  energy  equals  the 
heat  necessary  to  bring  the  kernel  up  to  spontaneous  ignition 
temperature,  T  , 

P  _  ,3 


P  C 
sp  p 


-  T3> 


where 


=  P3  /  R  T£ 


186 


Then, 

E.  -4 

Neglecting  T3  /  Tgp, 

d  =  [6RE/irC  P,]1/3 
P  3 

Combining  Equations  (79)  and  (82)  and  solving  for  E, 

E  .  =  146  x  1012  Tu5  U2/P,  1,55  T,  2,79  joules 

min  '3  3  J 


(81) 

(82) 

(83) 


The  flammability  limits  of  uniform  mixtures  of  vaporized  JP 
fuel  and  air  are  as  follows:  fuel  to  air  mixture  ratios  of 
approximately  0.035  and  0.27  by  weight, as  indicated  in 
Figure  103.  Overall  mixture  ratios  greater  them  0.27  are 
combustible  when  the  fuel  is  preseit  in  liquid  droplets  (or 
the  vapor  is  not  mixed  uniformly  with  the  air,  not  considered 
in  this  analysis) .  The  fuel  carried  by  the  airflow  to  the 
igniter  will  normally  consist  of  both  liquid  and  vapor;  however, 
at  low  temperatures  very  little  vapor  will  be. present  and  the 
fuel  will  be  in  the  form  of  droplets.  Ignition  of  such  mix¬ 
tures  requires  that  the  energy  input  be  sufficient  to  vapor¬ 
ize  enough  fuel  to  reach  the  flammability  limit  near  the 
igniter.  Figure  104  shows  the  strong  dependence  of  vapor 
formation  rate  on  the  droplet  size,  thus  indicating  the  critical 
requirement  of  including  droplet  size  in  the  analysis.  How¬ 
ever,  as  can  also  be  seen  from  Figure  104,  droplets  larger  than 
approximately  50  microns  will  contribute  very  little  vapor  for 
combustion  in  the  initial  ignition  process.  For  this  reason 
only  those  droplets  less  than  50  microns  can  be  considered 
significant  in  supplying  va/>or  for  ignition.  In  spray  atomizers 
typical  of  use  in  gas  turbines,  70  percent  of  the  spray  volume 
exists  in  droplets  larger  than  the  SMD.  Hence,  30  percent  of 
the  total  liquid  fuel-air  ratio  at  the  igniter  is  used  as  a 
parameter  multiplied  by  the  factor  (50/SMD)2  to  give  the  fuel- 
air  ratio  due  to  vaporization  at  the  igniter.  The  factor 
(50/SMD)2  varies  with  the  droplet  surface  area,  with  the  50- 
micron  size  droplet  being  chosen  as  the  maximum  size  that  would 
completely  vaporize  in  the  spark  and  ensure  combustion. 


Inlet  air  and  fuel  temperatures  will  greatly  affect  the  degree 
of  vaporization  of  the  liquid  droplets  injected  by  the  nozzle 
ahead  of  the  igniter.  The  fuel  temperature  influences  the 
vapor  fuel-air  ratio  at  the  igniter  primarily  through  its 
effect  on  the  liquid  fuel  viscosity  and  the  resulting  droplet 
size  and  distribution.  The  fuel  and  air  temperature  together 
affect  the  initial  stage  vaporization  prior  to  arrival  at  the 
igniter  location.  An  arithmetic  average  of  the  fuel  and  air 
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Figure  103.  Ignition  Energy  Versus  Fuel-Air  Ratio 
for  Jet  Fuels. 
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temperature  is  used  to  obtain  the  fuel  vapor  pressure  prior  to 
the  igniter  spark. 


Based  on  the  above  considerations  the  initial  vaporized  fuel, 
FVAp,  including  the  effect  of  droplet  size  can  be  determined  by 

FVAP  =  ¥v/MaPa  +  0,3  Fliq(50/SMD)2  (84) 

where  My  =  molecular  weight  of  the  vaporized  fuel 

M  =  molecular  weight  of  air 

a 

Pv  =  partial  pressure  of  the  vaporized  fuel 

?ap  =  partial  pressure  of  air 

FVAP  =  fuel“air  ratio  near  the  igniter 

F^  =  primary  zone  fuel-air  ratio 

and  by  the  general  ignition  energy  equation  wherein  Equation 
(67)  is  used.  The  ignition  energy  parameter  can  be  written  as 


min 


=  2.78  x  1010  Tu5U2/P31,55T32,79 


(85) 


(F. 


VAp  -0.035) (0.27-FVAp) 


where 


Tu  =  turbulence  fraction 


Figures  105,  106,  and  107  are  typical  of  the  curves  obtained 
using  the  above  equation.  Figure  107  shows  the  effect  of 
turbulence  level  on  ignition  energy  requirements.  The  true 
fraction  turbulence  of  the  airflow  at  the  igniter  is  not  known 
but  it  is  believed  to  be  in  the  range  of  0.02  to  0.04,  when 
the  spark  and  flame-generated  turbulence  is  considered  in  ad¬ 
dition  to  the  basic  airflow  turbulence.  A  fraction  turbulence 
value  of  0.03  was  used  in  obtaining  Figures  105  and  106  in  which 
stored  ignition  energy  is  plotted  against  liquid  fuel-air  ratio. 

The  shape  of  these  curves  can  be  compared  directly  with  the 
combustion  stability  curve  (Figure  103)  for  vaporized  fuel-air 
ratio.  The  curves  show  that  higher  ignition  energy  is  required 
as  the  mixture  velocity  increases.  As  droplet  size  decreases, 
approaching  the  rich  limit,  the  greater  rumber  of  small  drop¬ 
lets  for  a  fixed  fuel  volume  results  in  an  effective  increase 
in  the  fuel-air  ratio  due  to  more  evaporation.  This  then  re¬ 
quires  an  increase  in  ignition  energy.  However,  when  approach¬ 
ing  the  lean  limit  the  reverse  is  true  and  a  lower  ignition 
energy  is  required.  An  optimum  liquid  fuel-air  ratio  falls  at 
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STORED  IGNITION  ENERGY  -  JOULES 


Figure  106.  Predicted  Minimum  Ignition  Energy  Requirements 

for  Primary  Zone  (Mixture  Velocity  Is  10  ft/sec) . 
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Figure  107.  Combustor  Ignition  Energy  Requirements. 
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approximately  0.32.  Analytical  results  obtained  for  JP-5  and 
jp-8  fuels  indicated  that  significantly  higher  ignition  ener¬ 
gies  would  be  required  for  these  fuels  at  the  conditions  given, 
and  the  SMD  values  should  be  below  150  microns. 

5.2.2  Experimental  Ignition  Energy  Requirements 

Ignition  data  was  obtained  with  the  L-pipe  plus  swirler  con¬ 
figuration  described  earlier  in  Section  5.1.  The  results,  V 

shown  in  Table  XIII,  were  obtained  by  increasing  the  fuel 
flow  rate  with  the  igniter  on  until  ignition  was  obtained. 

The  fuel  flow  required  for  this  ignition  was  then  preset  am.  t 

two  more  ignition  checks  were  made  with  this  preset  fuel  flow. 

A  maximum  fuel  flow  for  ignition  was  set  at  60  pounds  per  hour 
and  the  maximum  sparking  duration  was  limited  to  7  seconds. 

The  fuel  flows  listed  are  for  three  L-pipes  only,  whereas  the 
airflows  are  total  airf .  ow  to  the  full  annulus  (see  discussion 
in  Section  5.1.2).  A  rough  overall  test  segment  liquid  fuel- 
air  ratio  can  be  determined  by  using  a  value  of  47  percent  of 
the  total  airflow  quoted.  This  percentage  represents  the 
percentage  of  the  total  full  annulus  area  located  in  the  sec¬ 
tion,  and  includes  swirlers  and  cooling  band  open  area. 

As  shown,  attempts  to  obtain  ignition  using  JP-5  fuel  were 
unsuccessful  at  the  three  airflow  settings .  Since  the 
characteristics  of  JP-5  and  JP-8  are  similar,  no  tests  were 
conducted  for  the  latter  fuel. 

A  parametric  study  was  conducted  to  compare  the  experimental 
results  with  the  analytical  predictions.  A  direct  comparison 
was  not  possible  due  to  the  lack  of  available  input  data, 
i.e.,  mixture  velocity,  SMD,  local  fuel-air  ratio  at  the 
igniter  and  turbulence  intensity.  Assumed  values  for  the 
parameters  were: 


Turbulence  intensity  fraction 

0.03 

Initial  liquid  fuel-air  ratio 

0.1,  0.3,  0.5 

Mixture  velocity  (ft/sec) 

10,  40 

*) 

SMD  (microns ) 

50,  150,  300 

% 

These  values  were  selected  to  ccver  the  range  expected  to  exist 
in  the  configuration  tested.  The  analytical  results  obtained, 
shown  in  Table  XIV,  predicted  ignition  capability  with  JP-4 
fuel,  and  stored  ignition  energies  of  less  than  12.5  joules  were 
confirmed  by  experimental  results.  The  single  no-light  experi¬ 
mental  point  (45,000  feet,  Mach  -  0.85,  4.26  joules  stored 
energy)  is  predicted  for  40  feet  per  second  mixture  velocity 
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TABLE  XIII.  IGNITION  Al’D  LEAN-LIMIT  BLOWOUT  DATA 
FROM  L-PIPE  PLUS  SWIRLER  PRIMARY  ZONE 
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and  SMD  values  greater  than  75  microns.  Comparison  with  JP-5 
analytical  data  was  not  possible,  since  no  successful  light- 
offs  were  obtained  experimentally.  The  predicted  light-off 
points  for  JP-5  do  indicate  that  this  will  be  the  case  unless 
the  SMD  values  are  below  150  microns. 

5.2.3  Conclusions 

The  ignition  model  equation  may  only  be  used  as  a  guide  in 
determining  the  minimum  ignition  energy  required  for  a  partic¬ 
ular  system,  due  to  the  assumptions  necessary  in  the  input 
data.  Mixture  velocity  and  SMD  can  be  calculated  with  some 
confidence,  but  the  initial  liquid  fuel-air  ratio  in  the  region 
of  the  igniter,  and  particularly  the  turbulent  intensity 
fraction,  may  be  subject  to  considerable  error. 


6 . 0  DILUTION  ZONE 


The  functions  performed  by  the  dilution  zone  are: 

o  Force  containment  of  primary  zone 

o  Reduce  the  bulk  temperature  of  the  gases 
from  the  primary  zone  to  the  required 
average  turbine  inlet  temperature 

o  Mix  with  the  primary  products,  reduce  the 

temperature  gradients ,  and  trim  the  temperature 
profile  and  pattern  factor  (PF)  to  that  required 
at  the  turbine  inlet.  However,  the  dilution 
zone  cannot  correct  gross  temperature  gradients 
that  can  be  produced  by  a  poorly  functioning 
primary  zone . 

The  dilution-zone  performance  is  dependent  on  the  distribu¬ 
tion  and  properties  of  the  flow  in  the  annulus  surrounding 
the  combustor  and  by  the  trajectories  and  mixing  characteris¬ 
tics  of  the  flow  which  enters  the  combustor  through  the 
dilution  orifices.  The  dilution-zone  analysis  is  comprised 
of  the  following  models: 

o  An  orifice  discharge  coefficient  (C  )  and  jet 
efflux  angle  model 

o  An  annulus  loss  model 

o  A  dilution  jet  trajectory  and  mixing  model 

The  derivation  of  these  models  and  dilution-zone  element 
tests  which  were  conducted  to  update  and  validate  these 
models  are  presented  in  the  following  paragraphs.  The  com¬ 
puter  program  prepared  for  this  analysis  is  presented  in 
Appendix  VI. 

6.1  MODEL  DEFINITION 


6.1.1  Discharge  Coefficient  and  Efflux  Angle  Model 

The  port  (orifice)  configure tions  used  in  a  combustor  design 
can  be  arranged  into  three  basic  categories: 

o  Flush  port,  with  some  flow  bypassing  the  port 

o  Plunged  port  which  is  similar  to  the  flush 

port  but  with  a  relatively  large  radius  orifice 
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o  Scooped  port  which  uses  the  airflow  dynamitic 
head  to  ram  air  into  the  orifice 

Primary-zone  components  such  as  swirlers,  primary  pipes,  and 
venturi  sections  are  handled  separately  because  the  flow  through 
these  orifices  is  controlled  more  by  geometry  rather  than  by 
approach  conditions. 

48 

Considering  first  the  flush  port  configuration,  Gurevich 
gives  analytical  equations  based  on  a  potential  flow  solution. 

A  schematic  of  the  basic  model  is  shown  in  Figure  108  and  is 
based  on  an  infinite,  two-dimensional  slot  of  width  b. 

The  following  parameters  are  defined  for  this  analysis : 

a/L  =  annulus  width  change/upstream  width 
b/L  =  slot  width/upstreara  annulus  width 

n  =  annulus  upstream  flow  rate/slot  flow  rate,  Wai/Wj 
c  =  upstream  annulus  velocity/slot  velocity,  Val/Vj 
8  =  jet  efflux  angle 
CD  =  discharge  coefficient 


Figure  108.  Dilution  Port  Model  Schematic 


From  the  Gurevich  analysis  the  following  relations  are  obtained  s 


b  =  1 
L  ir 


c  =  cosB/(l-^n) 

irsinB  _  cosB  mi-  +  cosB  \ 
n  n  ll  -  cosB ) 

cos^B  (^”^n)  +  cos^ 

osB  i(1_In)  “  CosB 


♦  HJ  *  c°326  ln  Hn) 
(i-^n)  c°sS  l(l-Jn) 

HJ *  Hf  °°»2»  ln|H„) 
H») 0086 

L  /  2  cosB  \ 
CD  b  l  2n  -  1  ) 


(1-Jn)+  ( 1-;)c°s8  1 cosB 

Hn)-H)cos8|K) 


These  equations  are  applied  to  three-dimensional  orifices  by 
maintaining  area  similarity  through  the  following  relation¬ 
ships: 

b/L  =  V^ea  (89 

TT  2 

where  ^  =  orifice  area  =  ^  D  for  circular  hole 

A  =  effective  annulus  area  with  boundary-layer 
ea  blockage  effects 

For  a  given  application,  the  annulus  upstream  conditions  and 
the  static  pressure  inside  the  combustor  must  be  specified. 
With  the  above  equations,  an  orifice  can  be  sized  to  pass  a 
specified  flow  rate,  or  the  flow  through  a  specified  orifice 
can  be  calculated.  The  procedure  for  each  is  outlined  as 
follows. 

For  given  values  of  annulus  and  orifice  flow  rates  and 
velocities,  c  can  be  calculated  and  then  the  efflux  angle 
can  be  found  from  Equation  (86) .  For  the  special  case  where 
all  annulus  flow  passes  through  the  orifice,  n  =  1  and 

cosB  =  c/2 
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If  the  orifice  flow  is  a  negligible  portion  of  the  annulus 
flow,  n  approaches  infinity, 

cos3  *  c 

This  latter  equation  is  used  as  an  approximation  in  many 
references,  even  where  n  does  not  approach  infinity. 

After  the  value  of  6  is  obtained.  Equation  (87)  can  be  used 
to  calculate  b/L  and  AH/Aea  from  Equation  (89)  ;  then  from 
Equation  (88),  CD  can  be  calculated. 

For  the  alternate  problem,  with  the  orifice  specified,  the 
above  procedure  is  used  in  an  iterative  solution  starting 
with  an  estimated  flow  rate  (value  of  n) .  The  iteration 
is  continued  until  n  converges  to  a  small  difference  between 
iterations . 


Figures  109  and  110  show  discharge  coefficient  and  efflux 
angle  as  functions  of  the  pressure  drop  parameter, 
a  =  (Pg)al  “  (Ps)j/(pt>ai  "  (Pg)j»and  flow  ratio,  1/n. 


where  P  ^  =  annulus  static  pressure 

P  ^  =  annulus  total  pressure 

Pgj  =  static  pressure  within  the  jet 

Figure  111  shows  the  variation  of  orifice  area  relative  to 
annulus  effective  area. 


6.1.2  Annulus  Loss  Model 

The  annulus  loss  model  is  used  to  calculate  pressure  losses 
and  airflow  distribution  around  the  combustor  liner. 

Annulus  losses  and  flow  distribution  are  computed  from  the 
generalized  influence  coefficient  method  given  by  Shapiro.29 
This  method  leads  to  the  following  equation  for  loss  in  total 
pressure  for  a  small  finite  length  of  duct: 


2 (1-y) 


dW 

W 


(90) 
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ORIFICE  DISCHARGE  COEFFICIENT,  CD 
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Figure  m.  Orifice  Area  -  Annulus  Area  Ratio 
Versus  Pressure  Drop  Parameter,  a, 
and  Flow  Ratio. 
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where  P  =  total  pressure 

M  =  average  Mach  number  in  element 
=  total  temperature 
f  =  wall  friction  factor 
dx  =  element  length 
D  =  duct  hydraulic  diameter. 

CD  =  drag  coefficient  of  inserted  bodies 
=  frontal  area  of  inserted  body 
A  =  duct  area 

y  =  velocity  of  injected  mass/duct  velocity 
dW  =  injected  mass  flow 
W  =  duct  mass  flow 


The  Mach  number  is  obtained  from  a  similar  influence  coeffi¬ 
cient  equation  given  by  Shapiro.  The  above  analysis  includes 
the  effect  of  area  change,  heat  transfer,  friction,  drag,  and 
mass  cddition. 

Swirl  effects  are  accounted  for  by  solving  the  above  equations 
in  the  direction  of  actual  flow,  together  with  an  equation 
for  angular  momentum  with  friction  losses,  The  computer  pro¬ 
gram  for  this  model  generates  a  pictorial  representation  of 
the  combustor  and  tabulates  the  flow  parameters  at  specified 
stations.  A  typical  computer  plot  is  shown  in  Figure  112. 

The  program  can  calculate  pressure  drop  from  an  assigned 
fixed-orifice  geometry,  or  can  size  orifices  for  a  desired 
pressure  drop  and  an  assigned  flow  distribution. 

The  flow  discharge  coefficients  and  efflux  angles  for  the 
orifices  along  the  annulus  are  determined  by  the  previous 
model. 

The  compressor  exit  flow  profiles  and  circumferential  varia¬ 
tions  usually  have  an  effect  on  combustor  performance, 
particularly  on  exit  temperature  distribution.  Experience 
has  demonstrated  that  the  combustor  pressure  drop  must  be 
maintained  at  a  minimum  of  twice  the  compressor  exit  dynamic 
head.  The  combustor  liner  itself  thus  serves  as  a  screen 
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Figure  112.  Computer  Plot  for  Annulus  Loss  Program  Output. 


to  back-pressure  the  flow  and  even  out  minor  variations  in 
compressor  exit  profiles.  If  means  can  be  developed  for  pre¬ 
dicting  the  effects  of  distortion  on  combustor  performance, 
operation  at  lower  pressure  drops  may  be  possible. 

The  analytical  method  for  this  model  employs  several  of  the 
other  models  in  combination.  The  analytical  procedure  followed 
includes  the  use  of  the  primary-zone  program,  together  with 
the  annulus  loss  model,  to  predict  combustor  flow  distributions 
for  various  assumed  compressor  exit  conditions.  The  illustra¬ 
tive  annulus  loss  model  was  tun  for  various  swirl  angles. 

Figure  113  shows  the  effect  of  swirl  angle  on  pressure  dtop 
and  the  relative  flow  split  between  the  inner  and  outer  com¬ 
bustor  walls  for  both  constant  mass  flow  and  constant  absolute 
velocity . 

At  low  swirl  angles  with  constant  mass  flow,  the  increase  in 
pressure  drop  is  slight,  with  a  sharp  increase  occurring 
beyond  30  degrees.  For  a  reverse-flow  combustor,  the  inlet 
swirl  angle  is  magnified  substantially  at  the  inner  radius. 

As  swirl  increases,  this  produces  a  shift  in  flow  distribution, 
with  flow  decreasing  through  the  inner  wall  of  the  combustor 
and  increasing  through  the  outer  wall. 

The  two-dimensional  primary- zone  program  can  be  employed  to 
predict  decay  of  compressor  profiles  in  either  the  radial  or 
the  circumferential  direction.  The  program  can  be  used  in 
predicting  combustor  inlet  diffuser  performance.  These  flow 
distributions  are  then  input  to  the  models  that  apply  to  the 
inner  combustor  flow  to  predict  effects  on  exit  profiles. 

6.1.3  Jet  Trajectory  and  Mixing  Models 

Dilution  jet  modeling  must  consider 

(a)  A  jet  trajectory  analysis 

(b)  A  mixing  analysis,  based  on  mass  entrainment  to 
determine  velocity  and  temperature  decay  and 
jet  spreading 

(c)  A  profile  decay  analysis  to  predict  profile  changes 
after  jet  mixing 

Both  empirical  and  analytical  jet  trajectory  models  were  con¬ 
sidered.  Although  an  analytical  model  was  selected,  the 
derivations  of  both  models  are  presented  for  reference. 


COMBUSTOR  INLET  SWIRL  ANGLE  -  DEGREES 


\ 


Figure  113.  Effect  of  Compressor  Exit  Flow  Swirl  on 
Combustor  Pressure  Loss  and  Flow 
Distribution. 
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6 . 1 . 3 . 1  Empirical  Trajectory  Method 

The  initial  step  in  analysis  of  dilution-zone  mixing  is  the 
prediction  of  the  mixing  jet  centerline  trajectory.  The  path 
is  influenced  by  the  relative  jet-to -mainstream  momentum  flux 
and  by  the  configuration  of  the  duct.  Extensive  work  is 
reported  in  the  literature  on  single  jets  in  a  relatively 
large  duct.  This  work  is  well  summarized  by  R.  J.  Margason4  . 

C.  W.  Carlson  et  al"^  and  E.  R.  Norster'^'’’^  have  presented 
alternate  relationships. 

The  trajectory  equation  given  by  Margason  is  an  empirical 
power  law  equation,  with  the  centerline  defined  as  the 
maximum  jet  mass  concentration  as  visually  observed  fro.u 
photographs  of  water-misted  jets.  The  equation  is 


1 

i 

i 

i 


* 
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X 

D. 

DO 


R 

4  sin  3 


/  Y  \3  /Y  \ 
1  c  V  f  c  J 
\  D  .  J  \D .  / 

'  3<v  v  DO/ 


cot  3 


(91) 


The  parameters  are  defined  in  Figure  114. 

Carlson  correlated  data  from  several  references  for  normal 
jet  injection  and  defined  the  centerline  as  the  point  of 
maximum  jet  mass  concentration.  Centerline  data  is  plotted 
empirically  versus  the  following  parameters: 


VI  = 


VD 


“T75  (1.07  -360  D.  2/ZH) 

g  e  30 


(92) 


X/D., 

X'  =  _1.2  (2.80  -  6  6  D.  2/ZH) 
G  e  3° 


(93) 
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mainstream  velocity, 
ft  per  sec 

jet  velocity,  ft 
per  sec 

mainstream  density,  lb 
per  cu  ft 

jet  density,  lb  per 
cu  ft 

angle  of  initial  jet 
injection  relative  to 
mainstream  direction  =  0° 
or  efflux  angle 

jet  initial  dia,  ft  =  /cT  D 


d  o 


orifice  diameter,  ft 


X  =  length  in  mainstream 
flow  direction  from 
centerline  of  orifice, 
ft 

Yc  =  depth  of  jet  center- 
line  penetration, 
ft 

H  =  duct  height,  ft 

Z  =  ducv  width  per 
orifice,  ft 

V  =  /p  /p.  V  /V. 

0  y  jo  g  jo 

G  =  p  .V./p  V 
3  3  g  g 

2  2  ,  2 

R  =  p  .V.  /p  V 
3  3  9  9 

CD  =  orifice  discharge 
coefficient 

s  =  jet  path  length  from 
orifice,  ft 


Figure  114.  Jet  Trajectory  Parameter  Definition. 
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Maximum  penetration  is  achieved  at  Y'  =  1.0  and 


=  G1,2  exp  (1.07  -  60  D.q/  ZH) 
jo  D° 

At  this  point,  X‘  is  also  equal  to  1.0  and 


«  g1*2  exp  (2. SO  -  60  D.q/ZH) 


Norster  developed  the  following  trajectory  equation  by 
considering  conservation  of  momentum,  including  entrainment 
effects.  The  jet  centerline  is  defined  as  the  point  of 
minimum  temperature. 


cmax 


-  1  -  C1  exp  <C2  X/Ymax) 


Constant  Ci  is  a  function  of  injection  angle  (efflux  angle) , 
80,  and  is  equal  to  0.7  for  90  degrees  injection  and  0.9  for 
71  degrees  injection.  Constant  C 2  is  given  as 


°2  =  \Wje 


where  =  injected  jet  weight  flow  rate,  lb  per  sec 

W.  =  weight  flow  entrained  in  jet,  lb  per  sec 
3® 

Norster  presents  empirical  data  for  the  ratio  WjQ/Wje  as  a 
function  of  velocity  ra^io  and  injection  angle.  From  this 
data  an  empirical  expression  has  been  developed  by  AiResearch 
for  entrainment  ratio  to  give  C 2  as 


C  =  -  P-Ll 

2  pgvg 


0.3  (8  /90 . ) 
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To  complete  this  trajectory  equation,  a  relationship  for  Ycmax 
is  required.  Norster  gives  the  following  empirical  equation 
as  a  function  of  duct  diameter  (tests  were  in  a  tubular  duct) 
and  jet  to  mainstream  momentum  ratio: 


cmax 


=  C3  sin 


,  0.5 

/  W.  V.  \ 

»(  v£) 


(99) 


where 


W  = 


duct 


duct 

mainstream  weight  flow  rate,  lb  per  sec 
duct  diameter,  in. 


Introducing  continuity  relations,  this  becomes 


Y 

cmax 

D. 

D 


C,  sin  0  R 
3  o 


(100) 


C-  is  given  as  1.224  by  Norster  for  90-degree  injection  only 
and  revised  to  1.15  to  include  the  injection  angles. 


6.1. 3.2  Analytical  Trajectory  Methods 

Trajectory  analytical  methods  can  be  grouped  into  two  types. 
The  first  treats  the  jet  as  a  solid  body  and  uses  discharge 
coefficients  for  cylinders  or  ellipses,  together  with  a 
pressure  differential  across  the  jet  in  the  mainstream  direc¬ 
tion,  to  compute  the  deflection.  The  second  method  deals 
with  mass  and  momentum  entrained  from  the  mainstream  into  the 
jet  and  is  generally  concluded  in  the  literature  to  be  more 
reasonable. 


The  second  method  was  selected  for  use  in  this  program.  Braun 
and  McAllister53  describe  this  method  and  list  most  of  the 
pertinent  references.  All  of  these  analyses  deal  with  jets 
in  a  uniform  stream  integrating  the  momentum  equation  to 
obtain  an  analytical  expression  for  the  jet  axis  trajectory. 

To  extend  the  method  to  the  case  of  variable  mainstream  veloc¬ 
ity  and  temperature,  the  basic  equations  derived  were  utilized 
but  the  mainstream  was  subdivided  into  segments.  Each  finite 
segment  was  assumed  to  have  constant  temperature  and  velocity, 
and  the  change  in  jet  axis  angle  passing  through  that  segment 
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was  calculated.  Mass  entrained  into  the  jet  was  computed  for 
each  segment,  based  on  empirical  spreading  rates.  Spreading 
of  the  jet  was  computed,  based  again  on  empirical  data.  With 
use  of  nondimensionai  jet  velocity  profiles  as  presented  by 
Keffer,54  a  similar  nc.  dimensional  temperature  profile,  and 
integrating  mass  flux  continuity  equation,  local  velocity  and 
temperature  profiles  were  computed. 

The  analysis  is  based  on  ''.he  assumption  that  mass  flux 
entrained  into  the  jet  carries  in  the  full  cross-flow 
velocity.  McAllister  shows  that  this  is  reasonable,  in  spite 
of  the  fact  that  most  of  the  mass  is  entrained  by  back  flow 
in  the  jet  wake.  Any  deceleration  of  fluid  before  its  sub¬ 
sequent  entrainment  results  in  pressure  gradients  in  the 
vicinity  of  the  jet,  with  resultant  changes  in  momentum  flux. 

The  analysis  is  initiated  by  considering  the  momentum  flux 
balance  for  the  control  volume  depicted  in  Figure  115.  This 
control  volume  differs  from  that  of  McAllister,  being  limited 
tc  a  thin  plane  through  the  jet,  parallel  to  the  wall  from 
which  the  jet  exists. 


* 


♦ 


* 

t 


Figure  115.  Jet  Trajectory  Momentum  Flux  Control  Volume. 
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The  analysis  was  established  with  the  following  assumptions: 


(a)  The  velocity  vectors  in  each  jet  cross  section  are 
parallel  to  the  jet  trajectory  axis. 

(b)  Average  pressure  differences  between  corresponding 
surfaces  of  the  control  volume  are  neglected  in 
comparison  to  the  momentum  terms. 

(c)  The  jet  trajectory  is,  therefore,  given  by  the 
resultant  momentum  vector. 


The 


flow  through  plane  X^  (Area  A^)  is  divided  into  two  parts: 

(a)  An  exterior  region,  A?-A  ,  having  the  free-stream 
velocity,  V^*  P 


(b) 


A  wake  region,  A  ,  which  is  the  projection  of  the 

P 

jet  shadow  onto  area  A?  with  zero  velocity. 


With  these  assumptions ,  the  momentum  balance  in  the  Y  direction 
is  formed  on  the  basis  that  the  jet  momentum  normal  to  the 
mainstream  is  a  constant  and  equal  to  the  jet  momentum  at  the 
orifice  exit,  MjQ  x  sin  3q. 
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°jivji sin  ei  “ji = 


Aji 


l 


p.2vj2  sin  S2  dAj2 


j2 


By  assumption  (a) ,  sin  3  is  constant  ever  A^;  therefore. 


*jl 

*j2 

!jl 


1 

*2 
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M.  sin  3 
M  =  3Q  ° 

Mjl  sin  3. 


M.  sin  3 
m  =  3Q  o 

j2  sin 


(101) 


sin  3 

(102) 

sin  32 J 

^j2Vj2  »j2 

(103) 

M . _  sin 

B2  =  Mjw  sin  Bo 

(104) 

The  X-momentum  equation  is  written  with  constant  mainstream 
properties  over  the  element  length  AY': 
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(105) 


pgl  Vgl  A1  "  Mjl  cos  61  =  Pg2  Vg2  <ArAp>  +  Mj2  cos  e2 

The  jet  momentuin  terms,  M.,  and  M._,  are  eliminated  with  the 
Y-momentum  equations  J 

M..  sin  6 


M. .  cos  B,  =  ]-°i - 3- 

jl  1  sin  B- 


cos  B,  =  M.  sin  B  cot  B, 
±30  o  1 


M.  sin  B 

M .  _  cos  B,  =  — ^ — 3 — - 
3  2  2  sin  B2 

The  X-momentum  equation  with  rearrangement  can  be  written 


(106) 

(107) 


(pc 


V 


V 


cot  8,  =  cot  8,  +  '  "32  ~92  -  V  1  V  V92  AP 

2  1  M.  si] 


sin  B„ 
jo  o 


(108) 


Note  that  this  equation  gives  the  inverse  of  the  trajectory 
slope 


cot  6  -  If 


(109) 


This  equation  can  be  further  simplified  by  assuming  that  in 
the  neighborhood  of  the  jet  element  AY,  the  gas  properties 
are  constant  over  the  length  AX  of  the  layer. 


Pg2  Pgl  Pg 

V  -  =  V  .  =  V 

g2  gl  g 


(110) 

dll) 


This  assumption  does  not  limit  the  variability  of  pg  and  Vg 
with  both  X  and  Y  when  integration  is  performed  over  the 
entire  jet.  The  X-momentum  equation  can  then  be  simplified 

to  2 

P„  V"  A 

cot  B-  =  cot  6.  +  .9  ■  P  (112) 

2  1  M .  s  in  B 

jo  o 

We  now  introduce  the  parameter  defined  as  effective  gas 
velocity  (Ve)  or  momentum  flux  ratio  r2. 


■  V 
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0  p  V  P  V 
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Introducing  R  into  the  momentum  equation. 


cot  =  cot  8,  + 


sin  8" 


(114) 


The  effective  jet  width  is  now  expressed  as  a  linear  function 
of  path  length, s, and  is,  in  reality  an  expression  for  the 
lateral  spreading  of  the  jet,  o.  McAllister  gives  the 
following  relation  for  o: 


a  -  a  +  Ks 
o 


(115) 


where  a  is  the  effective  width  at  the  jet  orifice  accounting 
for  an  Apparent  origin  of  zero  jet  width  located  "a"  diameters 
upstream  of  the  orifice. 


o  =  K  (2  a  Djo  +  s) 


(116) 


giving 


Ap  -JT  c  dy 


(117) 


The  factor  K  is  an  empirical  spreading  rate  parameter. 
McAllister  examined  experimental  data  and  applied  his  analysis 
to  the  data.  He  adjusted  the  K  factor  until  predicted 
trajectories  matched  the  measured  data.  This  resulted  in 
the  relationship  between  K  and  the  parameter  R  that  is  given 
in  Figure  116.  A  fixed  value  of  0.8  for  "a"  was  used  in  the 
matching  process. 

For  the  small  element  AY,  a  is  assumed  constant  at  the  value 
for  s  at  that  element,  and  then 


Noting  that 


AA  =  K (2  a  D.  +  s)  AY 
P  3° 


A  = 
o 


_2 
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where  CD  is  the  orifice  discharge  coefficient 
Equation  (114)  now  becomes 
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The  trajectory  analysis  is  n^a  completed.  Computation  of  the 
trajectory  path  is  accomplished  in  steps  of  AY/D.  .  The 
initial  input  required  includes 

o  Initial  jet  angle , 

o  Spreading  rate  factor,  K  =  f (Vg) 

o  Momentum  ratio  parameter,  Vg  =  f(X,  Y) 

6.1. 3.2.1  Predicted  Trajectories 

The  derived  equation  for  local  jet  angle  (Equation  105)  was 

used,  together  with  initial  conditions,  a  relationship  between 

K.  and  V  ,  a  virtual  source  "a"  of  0.8,  and  V  specified  as 
10  0 

a  function  of  Y,  to  predict  trajectories  in  uniform  streams 
for  comparison  with  the  data  available  in  the  literature.  A 
typical  comparison  is  shown  in  Figure  117  which  indicates  that 
good  agreement  exists  with  perhaps  a  slight  tendency  to  pre¬ 
dict  underpenetration.  No  data  was  available  in  che  litera¬ 
ture  for  jets  in  a  varying  mainstream.  However,  results 
obtained  by  the  above  method  with  the  use  of  three  inlet  pro¬ 
files  are  shown  in  Figures  118  and  119. 


Figure  116.  Spreading  Rate  Parameter  for 
Published  Air  Jets. 
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Figure  119.  Effect  of  Mainstream  Profile  » 

Reversal  on  Jet  Trajectory. 
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Lateral  jet  spreading  is  of  importance  in  spacing  dilution 
holes.  Figure  120  shows  results  from  the  trajectory  analysis. 
The  trajectory,  spreading,  and  decay  relationships  provide  the 
information  necessary  to  size  the  dilution  orifices  so  that 
the  jets  can  be  projected  into  the  region  of  maximum  primary- 
zone  exit  temperature  for  optimum  dilution  effectiveness  when 
opposed  jets  impinge  at  the  centerline.  The  recirculation 

38 

analysis  of  Verduzio  and  Companaro  was  modified  for 
annular  combustion  systems  and  employed  to  calculate  the 
resultant  mixed  flow. 

6. 1.3. 2. 2  Velocity  and  Temperature  Decay 

After  the  trajectory  is  obtained,  information  regarding  the 
decay  of  velocity  and  temperature  along  the  trajectory  is 
required  to  assess  the  mixing  rates .  McAllister  developed 
the  necessary  relations  to  perform  these  calculations. 

Measured  jet  profiles  of  both  velocity  and  temperature  can 
be  represented  by  the  following  profile  parameter  equation: 


f  (n) 


V-V 

_ a 

V  -v 


T-T 

_ 9_ 

T  -T 
c  g 


(121) 


The  factor  n  is  the  lateral  radius  divided  by  the  radius  at 
which  the  profile  parameter  equals  0.5.  The  rate  of  spreading 
of  the  half-radius  for  velocity  is  empirically  expressed  as 


rl/2 


=  c  s 


/i-K2cos2<j> 


(122) 


where  s'  =  path  length  from  apparent  origin,  a. 

Based  on  the  assumption  that  the  jet  is  an  ellipse  with  an 
aspect  ratio  of  1:5, 

K2  =  1- (1/5) 2  =  0.96 

The  constant  c  has  a  value  of  0.215  for  cross-wind  jets  and 
0.09  for  axisymmetric  jets,  and  $  is  the  rotational  angle 
around  the  circumference  of  the  ellipse.  The  following 
equation  for  velocity  decay  was  obtained  by  use  of  the  above 
relations  in  continuity  analysis,  integrating  over  angle  <J> 
and  out  to  a  radius  where  the  profile  parameter  is  0.1,  and 
including  density  effects  in  McAllister's  derivation: 
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Figure  120.  Jet  Lateral  Spreading 

for  Various  Injection  Angles 
and  Effective  Velocity  Ratios. 
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where  n  is  obtained  from  the  jet  similarity  profile  given 
by  Keffer  and  Baines^  and  shown  in  Figure  121. 

A  similar  relation  was  derived  for  temperature.  However,  it 
is  deemed  sufficiently  accurate  to  use  the  velocity  decay 
times  the  Prandtl  number. 

6.2  RIG  TESTS  AND  MODEL  UPDATE 

Rig  tests  that  were  conducted  to  provide  data  to  update  the 
model  included  discharge  coefficient  and  efflux  angle  measure¬ 
ments,  and  jet  trajectory  and  mixing  mapping.  These  tests  and 
the  resulting  model  update  are  presented  below. 


6.2.1  Discharge  Coefficient  Tests  and  Model  Update 


6. 2. 1.1  Rig  Tests 


The  discharge  coefficient  rig.  Figure  122,  was  designed  to  be 
capable  of  determining  the  discharge  coefficient  of  an  orifice 
in  a  flat  plate,  a  combustor  or  any  part  of  a  combustor.  In¬ 
cluded  in  the  design  was  the  capability  to  be  used  as  either 
open-to-plenum  or  with  air  passing  across  the  test  orifice  at 
any  required  velocity.  Airflow  to  the  test  piece  could  be 
regulated,  and  airflow  through  the  test  piece  was  set  by 
means  of  a  vacuum  system  and  the  use  of  up  to  nine  calibrated 
orifices.  The  effective  open  area  and  discharge  coefficient 
of  the  test  piece  could  then  be  calculated.  The  effect  of 
varying  the  passage  height  and/or  air  velocity  above  the  test 
piece  could  also  be  determined.  Nine  0.75-inch-diameter 
plunged  orifices  and  three  0.5-inch-diameter  plunged  orifices 
were  calibrated. 


Rig  instrumentation  included  two  static  taps  on  each  side  of 
the  orifices,  total  and  static  taps  at  the  test  piece  location, 
and  total  taps  at  the  variable  passage-height  discharge  loca¬ 
tion.  The  instrumentation  was  used  to  measure  differential 
pressure,  AP,  and  flow  rate,  W  ,  across  the  calibrated  orifices, 
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Figure  121.  Jet  Profile  Parameter  for 
Velocity  and  Temperatures. 
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MEASURED  AIRFLOW 


Figure  122.  Discharge  Coefficient  Rig 


AP  and  Wa  across  the  test  piece,  and  directional  velocity 
across  the  test  piece.  A  comparison  of  AP  across  the  test 
piece  and  AP  across  the  calibrated  orifices  for  the  measured 
airflow  rate  was  then  used  to  calculate  the  effective  open 
area  and  discharge  coefficient  of  the  test  piece. 

Testing  was  completed  for  the  following  configurations: 

o  Single  circular  orifice — thick  wall 

o  Single  circular  orifice — thin  wall 

o  Single  circular  orifice — thin  wall  plunged 

o  Multiple  circular  orifices — thick  wall 

o  Single  rectangular  orifice — thick  wall 

o  Single  crescent-shaped  orifice — thick  wall 

o  4X-size  cooling-slot  configuration 

Test  configurations  are  described  in  Table  XV.  Test  condi¬ 
tions  established  are  listed  in  Table  XVI.  For  each  of 
the  above,  the  effect  of  passage  flow  on  both  Cd  and  the 
efflux  angle  was  determined.  Additional  tests  were  conducted 
to  determine  the  effective  open  area  of  the  L-pipes ,  pneumatic- 
impact  nozzles,  swirlers,  and  cooling  bands  on  the  primary-zone 
configurations.  Values  were  obtained  for  open-to-plenum  con¬ 
ditions  only;  this  was  repeated  for  each  combustor  modification 
prior  to  testing. 

6 . 2 . 1 . 2  Test  Results  and  Model  Update 

Figure  123  shows  the  discharge  coefficient  data  for  the  single 
0.5-inch-diameter  flush  orifice.  Also  shown  on  the  figure  is 
the  predicted  discharge  coefficient  function  based  on  the 
theoretical  relation  for  a  flush  circular  hole  as  discussed 
previously.  Predicted  values  agree  well  with  the  data  for 
the  single  flush  orifice  test. 

The  open  annulus  data  at  a  pressure  drop  parameter,  a,  of  1.0 
agrees  exactly  with  the  predicted  value.  With  annulus  flow 
(annulus  height  of  0.7  inch),  discharge  coefficients  at  a  near 
1.0  are  slightly  higher  than  predicted.  This  may  be  an  influ¬ 
ence  of  the  wall  thickness.  It  was  concluded  that  the  ana¬ 
lytical  prediction  for  single  flush  orifices  is  verified  and 
that  the  relatively  thick  walls  used  in  small  combustors 
should  not  have  a  substantial  influence. 


TABLE  XV.  DISCHARGE  COEFFICIENT  TEST  CONFIGURATION 

Configu¬ 

ration 

Name 

Configuration 

Orifice 
Total 
Area 
(sq  in.) 

Equivalent 

Circular 

Diameter 

(in.) 

Ratio  of 
Max.  Width  to 
Wall  Thickness 

Single 

1/2-inch 

circular 

hole 

or- 

0.196 

0.5 

4.0- thick  wall 
>10.0-thin 
wall  and 
plunged 

Rectangle 

0.5- 

— 

~T 

1.0 

_L 

0.500 

0.747 

8.0 

Crescent 

0.27 

0.586 

2.0 

1—1.25—1 

Five 

1/2- inch 
circular 
holes 

i 

^2,0  |  0.3 

<bdia“ 

0.98 

0.5 

4.0 

4-time  s-s  ize 

cooling 

slot 

10  holes 
with  0.2-in. 
diameter 

0.625- 

i 

0.10 

0.314 

0.2 

1.66 

NOTE:  Walls  are  0.125  inch  thick  except  for  circular  thin 
wall  and  circular  plunged  orifices. 

TABLE  XVI.  DISCHARGE  COEFFICIENT  TEST  CONDITIONS 

Annulus 

Airflow 

(lb/sec) 

Orifice 

AP 

(in. of  H20) 

Annulus 

Velocity 

(ft/sec) 

Nominal 

Jet 

Velocity 

(ft/sec) 

Pressure 

Drop 

Parameter 

(a) 

CD  Data 
Curve  ! 

Plot  Symbol 

mm 

0.5 

M 

90 

warn 

□ 

mm 

1.0 

;  tm 

120 

m 

0.25 

2.0 

45 

150 

m  i 

0.25 

4.0 

45 

205 

0.95 

0.25 

6.0 

45 

245 

0.97 

0.49 

0.5 

Kfl 

145 

mgm 

o 

0.49 

1.0 

EH 

160 

0.49 

2.0 

90 

190 

EH  : 

0.49 

4.0 

90 

235 

0.85 

0.49 

6.0 

90 

270 

0.89 

_ 

mm 

0.5 

180 

230 

mgm 

A 

EH  ' 

1.0 

180 

240 

0.99 

2.0 

180 

265 

WBM 

0.99 

4.0 

180 

300 

0.66 

0.99 

6.0 

180 

330 

0.72 

0.5 

220 

265 

mm 

o 

WPIliy 

1.0 

220 

280 

1.22 

2.0 

220 

300 

1.22 

4.0 

220 

330 

BE9 

1.22 

6.0 

220 

365 

0.66 

1 

228 


Figure  124(a)  shows  discharge  coefficient  data  for  the  single 
rectangular  orifice.  The  open  annulus  data  point  is  4  percent 
higher  than  the  prediction  for  a  flush  circular  hole,  and 
closed  annulus  data  generally  is  higher  by  about  10  percent 
than  the  circular-orifice  prediction.  There  is  also  a  notice¬ 
able  trend  in  the  data  at  a  given  annulus  airflow  for  the 
discharge  coefficient  to  drop  off  at  a  greater  rate  than  the 
predicted  curve.  This  trend,  to  a  slighter  extent,  is  also 
observed  with  the  circular  orifice.  This  is  attributed  to  wall- 
thickness  effects  but,  considering  the  accuracy  of  the  data, 
does  not  appear  to  warrant  inclusion  in  analytical  correlations, 
since  it  is  not  good  practice  to  use  low  a  values  in  a  com¬ 
bustor  design.  A  second  curve  is  shown  based  on  a  10-percent 
upward  adjustment  of  the  flush  orifice  predicted  curve.  By 
applying  this  correction,  the  analytical  prediction  can  be  used 
for  designs  with  rectangular  orifices. 

Figure  i24(b)  presents  data  for  the  crescent-shaped  orifice. 

In  spite  of  its  substantially  different  shape,  the  discharge 
coefficient  characteristic  is  quite  similar  to  that  of  the 
circular  orifice.  Deviation  from  the  predicted  curve  occurs 
at  a  greater  than  0.9  with  an  open  annulus  value  of  0.678. 

For  design  purposes  it  can  be  concluded  that  a  flush  orifice 
of  any  shape  can  be  represented  by  an  equivalent  circular  ori¬ 
fice.  The  effect  of  a  on  discharge  coefficient  is  adequately 
described  by  the  analytical  procedure.  For  the  case  of  the 
rectangle,  a  10-percent  incremental  correction,  constant  at  all 
values  of  a,  improves  the  prediction. 

The  effect  of  multiple  holes  is  shown  in  Figure  124(c).  Data 
is  consistently  higher  than  the  predicted  values  and  higher 
than  the  data  for  the  single  orifice.  The  predicted  discharge 
coefficients  are  slightly  higher  for  this  configuration  be¬ 
cause  of  the  higher  ratio  of  jet  flow  to  annulus  flov,-,  but 
the  predicted  increase  is  only  on  the  order  of  1  percent, 
while  the  measured  values  are  generally  about  10  percent 
higher.  It  is  possible  that  the  higher  jet  flow  rates  re¬ 
sulted  in  a  shift  in  annulus  duct  velocity  profile  upstream 
of  the  orifice  row  or  resulted  in  local  reductions  of  static 
pressure  at  the  discharge  side. 

Figure  125  presents  discharge  coefficient  characteristics  for 
a  4-times-size  slot-cooling  device  typical  of  that  tested 
later  in  this  program  (see  Section  7.2.2).  Even  though  the 
air  is  metered  through  flush  orifices,  the  discharge  coef¬ 
ficient  curve  is  about  40  percent  greater  than  that  for  the 
single  orifice.  This  is  attributed  to  the  effect  of  the  inner 
deflection  sk.irt  that  spreads  and  diffuses  the  jet  air.  For 
analytical  prediction  purposes,  the  computed  coefficient  for 
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Figure  124.  Discharge  Coefficient  Data  Versus  Pressure 
Drop  Parameter  for  Different  Orifices. 
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a  single  orifice  can  be  multiplied  by  1.4  to  obtain  the 
coefficient  for  a  cooling  skirt. 

Jet  efflux  angle  data  is  shown  in  Figure  126  for  all  test 
configurations.  The  method  of  measurement  was  limited  to  a 
resolution  of  +5  degrees.  Observed  angles  were  substantially 
higher  (closer  to  the  jet  axis)  than  those  predicted  and 
showed  little  variations  with  the  a  parameter.  This  is  attrib¬ 
uted  to  the  thick  walls.  It  can  be  concluded  that  for  small 
combustors  with  low  ratios  of  orifice  diameter  to  wall  thick¬ 
ness/  penetration  of  orifice  jets  will  not  be  as  sensitive  to 
annulus  flow  conditions  cis  it  is  in  larger  combustors. 

In  general/  it  can  be  concluded  that  there  is  little  difference 
in  the  discharge  coefficients  for  large  or  small  combustors 
but  that  jet  efflux  angles  are  more  nearly  constant  for  smaller 
combustors. 

As  a  result  of  the  low  variation  in  jet  efflux  angle  observed 
for  the  thick-walled  configurations/  two  additional  tests  were 
conducted  with  a  thin-walled  flush  orifice  and  a  plunged 
(thick-walled)  orifice,  both  with  a  0.5-inch  open  diameter. 
Figure  127  shows  the  discharge  coefficient  of  the  thin-walled 
orifice  and  the  thick-walled  orifice.  Figure  128  shows  the 
jet  efflux  angle  for  the  thin-walled  orifice  with  a  variation 
that  more  nearly  follows  the  analytical  prediction.  One  dis¬ 
crepancy  is  that  the  measured  angle  for  a  given  annulus  veloc¬ 
ity  does  not  appear  to  change  with  a  change  in  the  pressure 
drop  parameter,  a.  The  wide  variation  in  angle  is  clearly 
undesirable,  as  it  increases  combustor  sensitivity  where  vari¬ 
ation  in  inlet  conditions  is  of  concern.  It  is  therefore 
concluded  that  any  foa.m  of  thin-walled  orifice  should  be 
avoided.  If  the  size  of  the  orifice  is  such  that  the  ratio  of 
the  minimum  width  to  wall  thickness  is  greather  than  4.0, 
the  orifice  should  be  plunged. 

Figure  129  shows  the  discharge  coefficient  for  the  plunged 
orifice.  The  open- to -plenum  (a  =  1.0)  discharge  coefficient 
is  0.9.  The  measured  data  is  seen  to  be  well  represented  by 
the  updated  prediction  obtained  by  multiplying  the  flush 
orifice  prediction  by  a  constant  of  1.475. 

Jet  efflux  angle  data  for  the  plunged  orifice  is  also  shown  in 
Figure  129.  Except  for  one  point  the  angle  is  constant  at  80°. 
This  is  similar  to  the  characteristics  of  the  thick-walled, 
square-edged  orifice. 
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Discharge  Coefficient  Data  for  the 
Thin-Walled  Circular  Orifice. 
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6.2.2  Dilution- Zone  Tests  and  Model  Update 


6. 2. 2.1  Rig  Tests 

A  dilution- zone  rig  was  designed  to  permit  tests  with  various 
dilution-zone  orifice  configurations  to  verify  the  jet  tra¬ 
jectory  analysis.  The  rig  was  capable  of  producing  (a)  a  tem¬ 
perature  profile,  (b)  a  jet  angle,  and  (c)  jet  penetration. 

It  was  also  capable  of  being  used  to  indicate  cooling-film 
effectiveness  and  show  the  effect  on  cociing-film  air  due  to 
entrainment  by  dilution  jets.  The  cooling-film  effectiveness 
tests  are  described  in  Section  7.2.2. 

Figure  130  shows  a  schematic  of  the  dilution-zone  test  rig. 
Inlet  air  temperature  was  limited  to  a  maximum  of  approximately 
800 °F,  with  dilution  air  and  profile  generator  air  being  ambi¬ 
ent.  Test  Section  B  incorporates  the  profile  generator  (two 
designs  available)  that  was  set  to  provide  a  modified  radial 
profile  or  removed  when  a  uniform  profile  was  required. 

The  dilution  lone  and  test  piece  (Section  C)  had  removable 
sides  so  that  either  Plexiglas  or  mild  steel  could  be  used  as 
required.  One  side  was  drilled  to  allow  probes  to  be  inserted 
to  measure  temperature  profile,  jet  angle,  and  jet  penetration 
for  the  various  test  pieces. 

A  cobra  or  wedge  probe  with  thermocouple  attached  was  used  to 
map  the  dilution-zone  temperature  and  velocity  profiles,  and 
visual  observations  were  made  with  the  use  of  tracers  and 
Plexiglas  sides  of  the  test  section. 

Section  D  was  a  straight  section,  as  shown  for  initial  tests. 
Curved  sections  were  also  made  to  measure  che  effect  on  tem¬ 
perature  profile  due  to  duct  curvature. 

Figure  131  shows  different  views  ^f  the  dilution-zone  rig. 
Figures  (a)  and  (b)  show  external  views  of  the  rig.  Figure 
(c)  shows  an  internal  view  cf  the  test  section,  looking  up¬ 
stream  coward  the  inlet  screen  and  profile  generators. 

The  rig  had  provisions  for  data  measurement  in  a  7x12x27 
point  data  matrix.  The  duct  was  4  inches  high  by  12  inches 
wide.  Probe  holes  were  located  in  the  4 -inch  side  spaced 
1/2  inch  apart  in  a  square  matrix  with  seven  stations 
across  the  height  and  12  stations  in  the  axial  direction. 

The  27  stations  for  each  hole  were  defined  to  cover  the  12- 
inch  duct  width.  Depth  increments  are  0.25  inch  over  the 
center  4  inches  and  0.5  inch  at  the  extremes.  The  test  ori¬ 
fice  is  located  on  the  12-inch  side  at  the  duct  center. 
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o  Orifice  and  cooling  slot  configurations  which  were 
described  in  Table  XV 

o  Multiple-  and  opposed-port  orifice  plates — two 

identical  plates  with  a  single  row  of  0.50-inch- 
diameter  ports  spaced  4  diameters  apart 

o  Staggered-port  orifice  plates — a  plate  with  a  single 
row  of  0.50-inch-diameter  ports  spaced  4  diameters 
apart  and  staggered  laterally  2  diameters  from  the 
orifices  of  the  multiple-port  plates 

o  A  4-times-size  liner  cooling  slot 

o  Constant-area  turning  duct — a  rig  adapter  to  examine 
mixing  at  90-degree  and  180-degree  increments  of 
duct  wall  turning  on  a  partially  diluted  profile 

o  Reduced-area  turning  duct — similar  to  the  above 
except  a  0.5  area  reduction  with  the  180°  turn 
(Figure  132) 


6. 2. 2. 2  Test  Results  and  Model  Update 


The  purpose  of  the  initial  tests  was  to  examine  the  effect  of 
gas-stream  velocity  and  orifice  configuration  on  the  trajec¬ 
tory  of  a  single  jet  in  a  uniform-profile  mainstream. 


The  spreading-rate  parameter,  K,  is  related  to  the  width  of 
the  jet  by  the  following  relation: 


K  « 


A  /A. 

P  1° 


/2a  +  -5-  \ 
l  D.  I  D. 

\  jo  I  jo 


(124) 


where  A  =  area  of  jet  projected  on  n  plane 

p  normal  to  the  cross-flow  direction 

A.  =  jet  initial  area  at  the  orifice 
jo 

For  a  given  value  of  Ve,  it  was  expected  that  the  effect  of  a 
noncircular  jet  would  be  to  influence  the  ratio  Ap/A-j0.  This 
ratio  is  approximately  proportional  to  the  width  of  the  ori¬ 
fice,  divided  by  the  orifice  area.  Three  basic  orifices  were 
tested — one  circular,  one  rectangular,  and  one  crescent¬ 
shaped  . 


241 


The  rectangular  orifice  has  the  lowest  width-to-area  ratio  and 
was  therefore  expected  to  penetrate  farthest,  with  less  rapid 
mixing.  The  crescent  shape  has  the  highest  width-to-area 
ratio  and  should  penetrate  the  least,  but  mix  rapidly.  The 
crescent  shape  was  selected  on  the  fact  that  the  first  three 
to  four  diameters  of  jet  length  are  taken  up  in  deforming  a 
circular  jet  into  a  crescent  shape,  with  a  width-to-length 
ratio  of  about  5.  Therefore,  the  crescent  shape  should  accel- 
*  erate  mixing  rates  by  providing  a  jet  already  formed  in  the 

crescent  ohape. 

The  configuration  for  the  initial  tests  consisted  of  a  uniform 
%  primary-air  temperature  profile  with  dilution  air  admitted 

through  a  single  0.500-inch-diameter  sharp-edged  orifice  lo¬ 
cated  on  the  transverse  centerline  of  the  mixing  duct  upper 
wall.  The  dilution  supply  duct  from  which  this  air  was  sup¬ 
plied  was  closed  off  at  its  exhaust  end,  so  that  all  the  dilu¬ 
tion  flow  passed  through  th*»  orifice. 

The  entire  dilution-air  profile  was  mapped  utilizing  a  wedge- 
type  yaw  probe,  indexed  to  points  in  a  0.50  x  0.50  x  0.25 
rectangular  cubic  matrix — this  probe  giving  flow  vector  angle, 
Ptotal/  Pstatic/  and  Ttota1.  for  the  0as  each  point.  Table 
XVII  sho^s  conditions  that  were  mapped. 


TABLE  XVII.  DILUTION 

-ZONE  TEST 

CONDITIONS 

V 

e 

V 

primary 
(ft/ sec) 

Secondary 

(ft/sec) 

T 

primary 

(°F) 

T secondary 
(°F) 

AT 

( °F) 

0.25 

72 

250 

260 

60-70 

=  200 

0.50 

145 

250 

260 

60-70 

=  200 

0.75 

223 

250 

260 

60-70 

=  200 

0.50 

176 

250 

600 

65 

535 

A  computer  program  reduces  the  data  to  provide  profile  plots 
of  temperature  in  two  mutually  perpendicular  planes,  parallel 
to  the  mainstream.  In  addition,  velocity  vectors  are  drawn  in 
the  x-y  plane  to  show  the  direction  and  magnitude  of  local 
velocity.  Data  in  the  horizontal  plane  depicts  the  spreading 
of  the  jet  across  the  duct.  Data  in  the  vertical  plane  depicts 
penetration,  deflection  of  the  jet  from  the  axis  of  entry,  and 
spreading  such  as  would  occur  across  a  combustor  annulus. 
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Data  from  the  center  plane  is  compared  with  the  predicted  jet 
centerline  trajectories  in  Figure  133.  Agreement  is  good  for 
the  0.5  and  0.75  effective  velocity  rati.os  (Ve)  ,  while  0.25 
condition  shows  greater  penetration  than  predicted.  Predicted 
penetration  is  dependent  on  spreading  rate  parameter  K,  and  a 
lower  value  of  K  increases  penetration.  The  relationship 
given  for  K  showed  a  peak  at  a  Ve  of  0.25.  Based  on  the  data, 
it  appeared  that  this  peak  was  not  as  sharp  as  previously  an¬ 
ticipated.  The  trajectory  prediction  procedure  was  adjusted 
to  provide  a  revised  relationship  for  K  to  match  the  measured  J 

trajectories.  The  two  test  points  of  Ve  =  0.5  compared  the 
effect  of  mainstream  temperature.  The  nearly  exact  coinci¬ 
dence  of  the  data  confirmed  the  Ve  parameter  as  the  proper 
correlating  relation.  *' 

Lateral  spreading  data  was  obtained  for  the  test  conditions 
given  in  Table  XVII.  Temperature  plots  showed  that  for  all 
test  points,  spreading  was  approximately  2  diameters  on  either 
side  of  the  orifice. 

Due  to  the  good  agreement  with  the  theoretical  profiles  indi¬ 
cated  by  the  circular  orifice  mapping,  mapping  of  the  remain¬ 
ing  configurations  was  limited  to  a  single  Ve  value  of  0.5 
and  profile  configuration  at  only  three  data  planes  normal  to 
the  primary  flow  direction  in  the  downstream  direction. 

Data  obtained  for  the  various  configurations  tested  was  used 
to  determine  the  spreading  rate  parameters  (K) .  A  plot  of  the 
experimental  data  as  a  function  of  effective  velocity  ratio 
(Ve)  is  compared  with  original  predictions  in  Figure  134. 

Typical  comparisons  of  predicted  jet  trajectories,  using  this 
updated  spreading  parameter  curve  and  those  obtained  experi¬ 
mentally,  are  shown  in  Figure  135.  Good  agreement  was  obtained 
for  all  configurations.  In  the  case  of  the  multiple  opposed 
and  nonopposed  orifices  [Figure  135 (d) ] ,  a  blockage  factor  was 
included  equal  to  the  orifice  diameter  times  half  the  duct 
depth . 

The  x-z  plane  temperature  profiles  for  the  five  unopposed  holes 
indicated  that  for  successful  interaction  and  mixing  of  these 
jets  within  a  realistic  axial  length,  orifice  spacing  must  be  * 

reduced  to  less  than  4  diameters. 

« 
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-  INCHES 


SINGLE  CIRCULAR  ORIFICE,  0.5-INCH  DIAMETER 
IN  A  4.0  x  12.0  INCH  DUCT 

EFFLUX  ANGLE  =  90° 

JET  VELOCITY  -  250  FT/SEC 
JET  TEMPERATURE  =  100°F 

PREDICTED  — 
MEASURED  - 


Figure  133.  Dilution-Zone  Measured  and  Predicted  Jet 
Centerline  Trajectories. 
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An  experimental  investigation  of  pattern-factor  improvement 

as  a  function  of  mixing-duct  length  and  geometry  is  summarized 

in  Figure  136.  The  results  presented  show  a  gradual  decrease 

in  pattern  factor  with  increasing  axial  length  followed  by  a 

more  rapid  decrease  as  the  flow  passes  through  the  180-degree 

turning  duct.  Tests  were  also  conducted  in  a  constant  area 

duct  to  determine  whether  area  reduction  or  turning  exerts 

the  predominant  effect  on  pattern  factor.  Results  of  the  test  « 

indicated  that  the  flow  separated  in  the  constant-area  turn, 

and  a  valid  comparison  could  not  be  made.  It  is  therefore 

concluded  that  constant-area  ducts  are  not  practical. 

6.3  CONCLUSIONS 

Reviewing  the  discharge  coefficient  testing  and  analyses,  the 
following  conclusions  were  drawn: 

o  The  effect  of  annulus  velocity  can  be  predicted 

provided  that  the  open-to-plenum  discharge  coeffi¬ 
cient  data  is  available. 

o  The  use  of  plunged  or  thick-walled  orifices  has  a 
beneficial  effect  on  maintaining  large,  constant 
jet  efflux  angles. 

o  Thin-walled  orifices  result  in  small  efflux 

angles  that  vary  as  a  function  of  annulus  velocity. 

o  Cooling  skirt  orifice  discharge  coefficients  are 
1.4  times  those  of  single  orifices  due  to  the 
effect  of  the  deflection  skirt. 

o  The  annulus  loss  model  presented  needs  no 
further  updating  and  can  be  used  to  check 
flow  distribution  following  the  design  of  the 
combustor  system  derived  in  Phase  III. 

After  reviewing  the  dilution-zone  testing  and  analyses,  the 
following  conclusions  were  drawn: 

o  The  effective  velocity  ratio,  V  ,  is  a  successful  \ 

correlating  parameter  for  predicting  the  trajectory 
of  the  dilution  air  into  the  dilution  zone. 

o  The  predicted  peak  o l  the  spreading-rate  parameter  , 

curve  at  a  value  of  V.  =  0.25  does  not  appear  to 
exist.  ^ 
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Figure  136.  Pattern  Factor 


o  Circular  orifice  spreading  extends  to  two 
diameters  on  either  side  of  the  orifice  > 

o  Rectangular  orifice  penetration  was  less  than 
anticipated  and  approximately  equal  to  that  of 
the  circular  orifice  with  a  diameter  equal  to 
the  rectangular  width. 

o  Minimum  penetration  with  maximum  mixing  was  ^ 

obtained  with  the  crescent-shaped  orifice.  * 

o  Pattern  factor  shows  a  gradual  decrease  with 

the  mixing-duct  length,  and  a  more  rapid  decrease 

as  the  flow  turns  180  degrees  in  a  reducing-area  • 

duct. 

Limitations  imposed  on  the  design  of  liner  orifice  configura¬ 
tions  are  total  allowable  pressure  drop  and  combustor  air 
available.  In  general,  only  limited  air  is  available  for 
pattern- factor  trimming  in  the  dilution  zone;  this  necessi¬ 
tates  careful  design  of  the  primary  zone  and  efficient  use 
of  the  air  in  this  region  to  minimize  the  air  required  in  the 
dilution  zone.  Pressure  drop,  combustor  height,  primary-zone 
temperature  velocity  profile,  required  pattern  factor,  and 
averc^ge  directly  influence  orifice  size  and  spacing.  Cur¬ 
rent  design  techniques  are,  in  general,  limited  to  obtaining  the 
desired  overall  ccmbustor  pressure  drop  and  the  overall  fuel- 
air  ratio  as  a  function  of  axial  location.  Preliminary  com¬ 
bustion  tests  to  determine  temperature  profiles  are  necessary 
before  the  orifice  configurations  can  be  optimized.  This 
limitation  will  be  eliminated  as  the  combustor  flow-field  pre¬ 
diction  techniques  are  further  developed  to  more  accurately 
predict  primary-zone  flow-field  characteristics. 

Compressor  discharge  variations  (swirl,  distortion,  strut  sep¬ 
aration,  etc.)  may  impose  some  severe  limitations  on  orifice 
design.  Additionally,  extreme  difficulty  exists  in  compensating 
for  these  variations  in  the  design  of  cooling-skirt  geometry. 
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7 . 0  LINER  COOLING 


The  discussions  of  liner  cooling  and  the  stress  analyses 
are  combined  in  this  section  because  the  structural  integrity 
(or  life)  of  a  combustor  depends  on  the  material  properties 
and  the  effect  of  the  accumulated  thermal  and  stress  histo¬ 
ries  on  these  properties.  In  order  to  achieve  a  long-life, 
lightweight  combustor,  the  design  analysis  must  consider 
(a)  low-cycle  fatigue  due  to  thermal  gradients  and  pressure 
loading,  (b)  creep  distortion  and  plastic  instability  due  to 
compressive  hoop-pressure  loading  and  exposure  to  high  temper¬ 
atures,  and  temperature  cycling,  and  (c)  effects  of  vibration. 
The  stress,  temperatures,  and  temperature  gradients  imposed 
,>n  a  combustor  must  be  maintained  at  levels  commensurate  with 
the  properties  of  the  selected  material. 

Existing  analytical  techniques  were  adapted  to  assess  the 
stress  imposed  on  thin  elastic  shells  of  revolution  with 
axisymrcetric  loading  and  the  effect  of  temperature  gradients 
on  low-cycle- fatigue  life.  Analytical  models  were  derived 
to  assess  film-cooling  effectiveness  and  haat-transfer  rates, 
and  radiant  heat  loading.  Combustor-element  rig  tests  were 
conducted  to  provide  data  to  update  and  validate  these  models. 
Finally,  the  detailed  film-cooling  models  and  simplified  ex¬ 
pressions  for  several  of  the  candidate  liner  cooling  concepts 
were  used  to  quantitatively  compare  the  following: 

o  Influence  of  various  flow  parameters,  such  as 
mass-injection  rate,  mainstream  to  cold-stream 
mass- flow-rate  ratio,  turbulence,  temperature 
and  velocity  profiles  in  the  mainstream,  and 
injection  angle 

% 

o  Influence  of  hole  characteristics,  such  as  hole 
diameter,  hole  spacing,  and  typas  of  holes  and 
their  arrangement 

o  Influence  of  pressure  drop  and  other  cycle 
requirements 

o  Structural  integrity  of  the  flame  tube 
7.1  STRESS  ANALYSIS 

A  stre§s-analysis  model  was  adapted  to  evaluate  the  stress 
distribution  in  a  combustor  shell.  The  model  consists  of  a 
computer  program  that  analyses  thin  elastic  shells  of  revolution 
with  axisymmetric  loading.  The  program  computes  axial,  radial, 
and  hoop  forces,  axial  and  hoop  moments,  axial  and  radial  dis¬ 
placements  ,  meridional  rotation ,  meridional  hoop  and  shear 
stresses,  and  equivalent  stresses  in  a  thin  shell. 


The  computer  program  was  used  to  conduct  a  stress  analysis  of 
a  typical  combustor  configuration  and  to  predict  combustor 
life  based  on  a  hot-spot  analysis  described  in  Section  7.1.3. 

The  results  of  these  analyses,  as  well  as  a  description  of  the 
analytical  model,  are  presented  in  the  following  paragraphs. 

7.1.1  Method  of  Solution 
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The  original  analysis  is  attributed  to  Love  and  was  * 

reduced  to  two  simultaneous  second-order  differential  equa¬ 
tions  by  Reissner^  without  the  thermal- expansion  terns. 

These  result  from  the  eight  equations  for  equilibrium, 
compatibility,  and  stress-strain  relations  of  Love's  first  J 

approximate  thin-shell  theory. 

The  finite-difference  forms  of  the  basic  equations  are  used 
to  solve  for  the  coefficients  at  the  initial  edge  and  again 
to  determine  elastic  rotation  of  the  meridional  tangent  and 
the  internal  radial  force  per  unit  circumferential  arc-length 
at  the  terminal  edge. 

The  assumptions  inherent  in  the  thin-shell  theory  are  that 
(a)  the  shell  thickness  is  everywhere  less  than  1/10  of  the 
radius  of  curvature;  (b)  everywhere  in  the  shell,  the  dis¬ 
placements  are  small  in  relation  to  the  dimensions  of  the 
shell;  and  (c)  the  normal  to  the  middle  surface  of  the 
unstrained  shell  remains  normal  and  unextended  when  the  shell 
is  strained.  In  effect,  the  latter  indicates  that  transverse 
strain  is  neglected. 

Geometry  input  for  the  shell  analyzed  is,  for  convenience, 
made  up  of  a  number  of  parts,  each  being  either  a  cylinder, 
conical  section,  or  toroidal  section,  and  each  having  thick¬ 
ness,  temperature,  and  pressure  input  as  linear  functions  of 
arc  length. 

The  shell  may  be  subjected  to  local  or  distributed  loads,  as 
long  as  they  are  axisymmetric .  Local  axial  forces  may  be 
applied  at  any  point  in  the  shell ,  but  radial  forces  and 
moments  can  be  applied  only  at  the  shell  edges. 

* 

7.1.2  Combustor-Shell  Analysis  • 

The  computer  program  was  used  to  conduct  a  brief  analysis  of 
a  typical  annular  combustor  configuration.  A  schematic  of  the 
combustor  and  the  results  of  the  analysis  are  shown  in  Figure  $ 

137.  The  stress  levels  were  acceptable  except  in  the  vicinity 
of  the  cooling  bands.  A  more  detailed  design  analysis  would 
undoubtedly  show  that  flexibility  introduced  by  the  drilled 
holes  behind  the  cooling  band  reduces  these  stresses. 
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7.1.3  Combustor  Wall  Temperatore  Gradient 


To  analyze  the  importance  of  the  effect  of  temperature  gra¬ 
dients  on  the  low-cycle- fatigue  life  of  combustors,  a  stress 
model  of  a  typical  combustor  hot  spot  was  established.  The 
"hot-spot"  model  that  was  used  is  shown  in  Figure  138.  The 
model  consisted  of  a  circular  hot  spot  with  a  uniform  maximum 

temperature,  T  ,  over  the  center  0.25-inch  diameter,  lin- 
max 

early  varying  down  to  the  minimum  temperature,  T^n ,  in  the 

remainder  of  the  1-inch-diameter  hot  spot.  Because  of  the 
symmetrical  nature  of  this  model,  the  stress  computations 
were  independent  of  the  metal  thickness. 

The  model  was  utilized  to  predict  elastic  stress  ranges  in 
the  hot-spot  region  for  temperature  gradients  of  200°,  400°, 
800°,  1200°,  and  1600°F  per  inch,  with  maximum  temperatures 
of  1200°,  1600°,  and  1800°F.  The  calculated  IN-586  elastic 
stress  ranges  for  the  above  temperature  gradients  are  pre¬ 
sented  in  Figure  139.  The  results  indicate  that  the  stress 
range  is  a  linear  function  of  temperature  gradient,  AT/L,  as 
was  expected  for  an  elastic  stress  analysis. 

With  use  of  the  calculated  elastic  stress  and  the  low-cycle- 
fatigue  data  given  in  Section  3.0,  the  calculated  combustor 
life  was  determined.  A  comparison  of  the  predicted  combustor 
life  as  a  function  of  the  hot-spot  temperature  gradient  is 
plotted  in  Figure  140,  as  well  as  the  trend  observed  in  pre¬ 
vious  actual  combustor  testing.  The  comparison  between  the 
calculated  low-cycle- fatigue  life  and  the  actual  test  data  is 
quite  good,  in  view  of  the  simplicity  of  the  combustor  hot-spot 
model  as  compared  with  the  complexity  of  this  program.  This 
indicates  that  the  s  implified  combustor  hot-spot  model  is  a 
reasonable  approximation  of  actual  combustor  hot  spots.  How¬ 
ever,  it  must  be  realized  that  this  curve  is  somewhat  opti¬ 
mistic,  and  consideration  should  also  be  given  to  vibration, 
thermal  cycle  gradients,  and  combustion  stability. 

7.2  COMBUSTOR  COOLING  ANALYSIS 

Cooling  requirements  are  one  of  the  primary  constraints  im¬ 
posed  on  small,  advanced  combustors.  For  small  engines  with 
high  turbine  inlet  temperatures,  cooling-flow  air  is  a  signif¬ 
icant  percentage  of  the  total  inlet  air,  thus  reducing  the 
quantity  available  for  the  dilution  zone.  Cooling  flow  re¬ 
quirements  are  high  because  (a)  the  surface-to-volume  ratio 
of  combustors  increases  rapidly  as  the  engine  size  and  core 
airflow  is  reduced,  and  (b)  advanced  engine  cycles  continue 
to  increase  cycle  pressure  ratios,  which  raises  the  tempera¬ 
ture  of  the  compressor  discharge  air,  and  therefore  lowers  the 
attendant  cooling  capacity. 
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Figure  138.  Hot-Spot  Model  Schematic, 
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Ficrure  140.  Combustor  Life  Versus  Temperature  Gradient  for  IN- 5 86 


Alternate  design  approaches  could  consider  the  use  of  a  high- 
temperature  ceramic  or  refractory  material  for  the  liner  and 
thereby  preclude  the  requirement  for  cooling.  The  candidate 
ceramic  materials,  however,  were  considered  inadequately 
developed  at  this  time  to  be  used  for  combustor  test  hardware 
in  the  program. 

The  most  widely  used  combustion-liner  cooling  method  is  film 
cooling  through  approximately  two-dimensional  slots  located  at 
several  axial  positions  ale  j  the  combustor  wall.  Other  cool¬ 
ing  methods  are  known  to  be  more  effective  but  either  are  not 
sufficiently  developed  or  impose  unacceptable  penalties  such 
as  pressure  drop,  fabricability  cost,  and  particle  contamina¬ 
tion. 

Transpiration  cooling  is  the  most  effective  known  means  of 
combustor  wall  cooling  but  was  not  pursued  because  the  fabri¬ 
cation  technology  was  not  sufficiently  developed  and  because 
of  low  tolerance  to  dust  contamination.  Impingement  cooling 
is  also  an  effective  cooling  scheme  but  requires  a  higher  com¬ 
bustor  pressure  drop  than  the  3  percent  specified  for  this 
program. 

Convection  cooling  was  briefly  considered,  but  the  fabrica¬ 
tion  cost  and  complexity  associated  with  the  surface  exten¬ 
sions  (fins)  are  prohibitive  for  consideration  as  a  small 
engine  production -combustor  application.  Recent  work  with 
roughened  exterior  surfaces  (i.e.,  a  rough  metal  spray  or  a 
chemical  etching  process)  may  result  in  an  effective  applica¬ 
tion  of  this  cooling  concept. 

It  was  concluded  after  some  preliminary  analysis  that  (a)  film 
cooling  is  adequate  (though  marginal)  for  the  specified  cycle 
parameters  of  this  program,  and  (b)  parametric  design  equa¬ 
tions  to  optimize  film-cooling  effectiveness  would  contribute 
to  the  overall  program  objectives.  The  combustor  cooling 
analysis  consisted  of  three  separate  analytical  models  and 
supporting  rig  tests: 

(a)  With  the  use  of  existing  data,  empirical 

correlations  were  prepared  to  predict  the  per¬ 
formance  of  four  classes  of  film-cooling  con¬ 
figurations.  A  series  of  rig  tests  was 
conducted  at  Arizona  State  University  to  obtain 
effectiveness  and  heat-transfer  coefficient 
data  for  parametric  variations  of  each  of  the 
four  configurations,  and  this  data  was  used 
for  updating  tha  initial  analytical  model. 
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(b)  A  4-times-size  film-cool in?  slot  was  tested 
to  determine  mixing  rates  between  the  cooling 
film  and  the  combustor  mainstream  flow.  The 
data  was  used  to  confirm  a  numerical  solution 
of  mixing. 

(c)  An  analytical  model  for  flame  (or  gaseous) 
radiation  was  prepared.  Data  obtained  during 
the  high-pressure  primary-zone  rig  tests  was 
used  to  assess  the  validity  of  the  analytical 
model. 

These  efforts  are  described  in  the  following  paragraphs. 

7.2.1  Film-Cooling  Analysis 

One  of  the  major  variables  in  film-cooling  performance  is  the 
injection  geometry.  The  cooling  film  can  be  injected  through 
lines  of  arrays  of  individual  openings  in  the  surface,  or 
through  slots  that  attempt  to  place  the  film  onto  the  surface 
in  a  continuous,  unbroken  sheet.  The  shape  and  spacing  of 
the  openings,  together  with  the  angle  of  the  film  flow  through 
the  openings,  result  in  innumerable  configurations  that  could 
be  used.  Of  course,  the  best  protection  for  a  downstream 
surface  for  a  given  coolant  flow  rate  will  be  provided  by  an 
injection  configuration  that  places  a  continuous  coolant  layer 
onto  the  surface  in  a  manner  that  minimizes  mixing  between 
the  coolant  and  primary  streams. 

For  small  combustors,  cooling- film  injection  through  contin¬ 
uous  flush  slots  is  precluded  by  manufacturing  techniques, 
cost,  and/or  flow-metering  considerations.  Yet,  if  spaces  are 
left  between  the  coolant  openings,  the  mainstream  can  flow 
onto  the  protected  surface  unimpeded.  Moreover,  the  individ¬ 
ual  dilution  jets  penetrating  into  the  mainstream  allow  the 
hot  mainstream  to  mix  in  downstream  of  the  jet,  reducing  the 
attendant  effectiveness  in  cooling  the  surface.  If  the  aver¬ 
age  cooled  surface  temperature  is  tolerable,  the  large  local 
surface  temperature  variations  present  with  these  configura¬ 
tions  may  render  the  cooling  scheme  unacceptable.  These  prob¬ 
lems  have  been  overcome  somewhat  in  most  combustor  liners  by 
metering  the  coolant  flow  through  a  row  of  holes  and  then 
directing  it  onto  a  cover  or  splash  plate  to  spread  it  out  into 
a  more  or  less  continuous  sheet  at  the  injection  point.  Fig¬ 
ure  141  schematically  illustrates  this  type  of  configuration. 

This  section  presents  the  results  of  an  extensive  experi¬ 
mental  study  of  the  performance  characteristics  of  four 
classes  of  injection  configurations  thought  to  be  suitable 
for  gas-turbine  combustion/chamber-liner  cooling.  These 
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results  were  published  in  an  ASM?,  report^.  These  four  config¬ 
urations  are  termed  impingement  film  (IF) ,  pinched  impingement 
film  (PIF) ,  impingement  film  with  wiggle  strip  (IF/WS) ,  and 
hole-step  (HS) .  They  are  shown  schematically  in  Figure  142. 

In  the  PIF  configuration,  a  larger  volume  is  provided  in  the 
impingement  zone,  as  compared  with  the  IF  configuration,  in 
anticipation  that  this  will  promote  better  spreading  of  the 
jets  in  the  spanwise  direction  before  injection  onto  the  pro¬ 
tected  surface. 


It  was  anticipated  that  better  jet  spreading  and,  thus, 
improved  film-cooling  coverage  will  accompany  longer  cover- 
plate  lengths,  L,  for  fixed  values  of  the  other  geometrical 
and  flow  variables.  However,  long  cover-plate  lengths  will 
be  prone  to  deformation  in  actual  engine  operating  conditions, 
and  some  type  of  restraint  such  as  a  wiggle-strip  will 
undoubtedly  be  necessary.  The  hole-step  configuration  was 
included  because  it  is  simple  to  manufacture  (a  machined  ring 
with  drilled  holes) ;  and  since  the  cover  plate  is  eliminated, 
this  configuration  is  not  susceptible  :o  deformation. 


The  initial  correlations  of  film  cooling  performance  for  the 
four  classes  of  cooling  configurations  were  based  on  data 
for  similar  but  less  complex  geometries.  These  correlations, 
detailed  descriptions  of  the  test  procedures,  and  test  results 
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are  presented  by  Love  .  A  summary  of  the  test  procedures , 
apparatus,  and  final  correlations  is  presented  in  the  follow¬ 
ing  paragraphs. 

7.2.1  1  Procedure  and  Apparatus 


The  film-cooling  effectiveness,  is  defined  as 

f)„. .  =  (T  -T  )  / (T  -T  J 

Film  m  aw  m  f 

where  T^  =  mainstream  temperature 
Tw  =  wall  temperature 
Taw  =  adiabatic  wall  temperature 
T^  =  coolant  film  temperature 


<  -5) 
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PINCHED-IMPINGEMENT  FILM  (PIF) 


k\\VC  [ 


IMPINGEMENT  FILM  WITH  WIGGLE  STRIP  (IF/WS) 


iwwwwv 


o  o  c  o  o 


HOLE-STEP  (HS) 


Figure  142.  Cooling  Slot  Geometry  Schematics, 
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In  design  practice,  correlations  of  nF^m  are  used  to  obtain 

T  for  use  in  conjunction  with  a  convective  heat-transfer 
3.W 

coefficient,  h,  tc  predict  the  local  heat  flux  (4/A)  for  a 
given  surface  temperature : 

4/A  =  h(Taw-Tw)  (126) 

♦ 

If  correlations  for  T  with  film  cooling  are  available,  then 

clW 

a  common  procedure  is  to  use  the  heat-transfer  coefficient 
that  is  associated  with  the  primary  flow  alone.  Unfortunately, 
*,  this  procedure  is  generally  inadequate  for  predicting  heat- 

transfer  rates  in  the  important  region  immediately  downstream 
of  the  injection  site.  In  this  near  region,  the  injection  of 
the  secondary  fluid,  even  if  two-dimensional,  can  signifi¬ 
cantly  alter  the  flow  pattern  from  tnat  of  the  primary  flow 
alone,  and  the  effective  heat-transfer  coefficients  may  be 
either  increased  or  decreased,  depending  on  the  amount  and 
nature  of  the  injection. 

In  this  program,  heat-transfer  rates  were  measured  directly; 

in  effect,  both  h  and  T  were  determined  at  the  same 

aw 

time.  Average  surface  heat-transfer  rates  were  measured  over 
finite  chordwise  distances,  l,  downstream  of  the  injection 
point.  These  rates  were  compared  to  the  heat-transfer  rate 
measured  with  the  same  surface  and  mainstream  conditions  with¬ 
out  injection.  The  ratio  of  average  rurface  heat  transfer 
with  injection  to  that  without  injection,  <J>,  is  presented 
nondimens ionaily  as 


♦  -  ♦  (W,T ,  l/s) 

(127) 

where 

T  =  (T  -T  )/(T  -T  ) 
m  t  m  w 

(128) 

and  s  is  the  actual  width  of  a  two-dimensional  injection  slot.* 

W  is  the  ratio  of  the  coolant  mass  velocity  to  the  mainstream 
mass  velocity.  Alternatively,  K'  may  be  used,  which  troploys 
the  film  mass  flow  per  unit  area  of  slot  gap. 

•*  The  functional  relationship  implied  in  Equation  (127)  was 

obtained  from  a  nondimensionalization  of  the  governing 
boundary- layer  momentum  and  energy  equations  and  appropriate 
boundary  conditions  for  two-dimensional  slot  injection,  uni- 
‘  form  surface  temperature,  and  snail  temperature  differences. 

•5 

i 

i 


*seg  as  used  later  is  the  width  of  an  equivalent  slot  of  equal 
discharge  area  for  the  case  of  hole  injection. 
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The  assumption  of  small  temperature  differences  is  consistent 

with  a  linear  formulation  of  the  energy  problem  where  film 

cooling  (T  >  T-J  and  film  heating  (T  <  T*)  are  similar 
m  r  m  r 

problems  governed  by  the  same  equations  and  boundary  condi¬ 
tions  . 

When  T  =  0,  T-  =  T  and  the  value  of  <j>  at  this  point  indicates 

f  m  j 

the  hydrodynamic  effect  of  the  film  on  the  downstream  surface 

heat  transfer.  Previous  work  has  shown  that  this  effect, 

averaged  over  a  surface  length  of  35  slot  widths,  is  quite 

small  for  0.25  _<  W  <  0 .78 . 

4 

When  <|>  =  0,  the  average  surface  heat-trar.sf er  rate  is  zero, 
although  in  general  the  local  rates  on  the  surface  will_not 
be  zero.  If  the  value  of  T,  when  4>  =  0,  is  denoted  by  Tad, 

then 

fad  =  <VTf>/<Tm-Taw)  (129)  . 

Here  Taw  must  be  interpreted  as  the  surface  temperature 

corresponding  to  zero  average  surface  heat  flux.  The  inverse 
of  Tad  has  the  form  of  film-cooling  effectiveness,  although 

the  actual  surface  condition  is  not  in  general  locally  adia¬ 
batic  . 

Thus,  the  value  of  T^d  =  0  essentially  conveys  effectiveness 

information,  whereas  the  value  of  $  at  T  =  0  indicates  the 
effects  of  injection  on  heat  transfer  that  are  not  available 
from  adiabatic  wall  temperature  distribution  alone.  A  value 
of  <p  at  T  =  0,  4>o,  equal  to  unity,  indicates  that  the  average 

surface  heat  flux  can  be  predicted  by  Equation  (126)  with  the 
primary  flow  heat-transfer  coefficient.  The  percent  increase 
or  decrease  in  <j>Q  from  unity  Js  directly  proportional  to  the 

error  incurred  in  predicting  surface  heat  flux  from  Equation 

(126)  with  the  primary  flow  heat-transfer  coefficient  and 

measured  adiabatic  wall  temperatures.  ♦ 

It  should  be  emphasized  that  the  information  conveyed  with 
the  4>  parameter  is  heat-transfer-rate  information,  which  is 
obtainable  only  with  heat-transfer  test  surfaces  that  are  > 

nonadiabatic.  With  injection  configurations  such  as  the  • 

present,  where  the  probability  that  <f>Q  =  1.0  is  very  high,  the 

present  test  method  possesses  considerable  advantages  over 
conventional  adiabatic  surface  measurements . 
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The  film-cooling  facility  used  for  these  tests  consisted 
of  an  open-cycle  wind  tunnel,  shown  schematically  in  Figure 
140.  Mainstream  air  at  up  to  150  feet  per  second  was  supplied 
from  ambient  laboratory  conditions  with  an  upstream  blower. 

The  heated  secondary,  or  film,  air  was  supplied  from  the 
laboratory  compressed-air  supp.1  -.  Both  flows  were  orifice- 
metered  in  accordance  with  ASME  tandards.  The  injection  sec¬ 
tion  consisted  of  a  plenum  chamber  with  baffles  and  screens 
topped  by  removable  test  pieces  (fabricated  from  acrylic 
plastic)  that  provided  the  different  injection  configurations. 


4 


« 


i 


A  close-up  of  the  test  section  showing  the  relationship 
between  the  test  piece  and  the  heat-transfer  surface  is  shown 
in  Figure  144.  During  a  transient  test  with  secondary  injec¬ 
tion,  all  the  flow  variables,  including  T^  and  Tm,  were  main¬ 
tained  constant;  so,  at  any  given  time  during  the  transient, 
the  value  of  T  (measured)  'and  the  value  of  q  [calculated  from 

Equation  (126)]  correspond  to  a  single  value  of  T.  This  cal¬ 
culated  heat-transfer  rate  was  normalized  with  the  rate 
observed  for  the  same  mainstream  conditions  and  surface  tem¬ 
perature  in  the  absence  of  injection. 

A  total  of  33  different  test  pieces  was  fabricated.  Six 
typical  impingement  film  test  pieces  are  shown  in  Figure  145. 
The  geometry  of  the  four  basic  configurations  is  shown  in 
Figures  146  through  149.  Dimensional  variations  of  each  of 
the  configurations  are  presented  in  tabular  form  in  each 
figure. 


7. 2. 1.2  Summary  of  Results  and  Conclusions 

The  impingement  film,  pinched-impingement  film,  and  wiggle- 
strip  configurations  that  were  studied  can  all  be  classified 
as  hole  injection  onto  a  cover  or  splash  plate,  which  directs 
the  flow  onto  the  downstream  surface.  The  most  significant 
geometric  parameters  governing  the  film-cooling  performance 
for  these  configurations  are  the  open-area  ratio,  s^/G,  and 

tbs!  relative  cover-plate  length,  L/G.  The  other  geometric 
effects  explored  in  the  pinched-impingement  film  configura¬ 
tions  and  in  the  wiggle-strip  configurations  appear  to  have 
much  smaller  effects  on  film-cooling  performance. 


* 
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Figure  144.  Film-Cooling  Test  Section. 
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Figure  145.  Typical  IF  Test  Pieces. 
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Configuration 

Hole 

Diameter 

(dn> 

Lip  Length 
(L) 

Gap 

(G) 

Lip 

Thickness 

(t) 

Number 
of  Holes 
(n) 

IF-1 

0.050 

0.050 

0.025 

0.020 

7 

IF-2 

0.100 

0.100 

0.050 

0.040 

4 

IF- 3 

0.100 

0.250 

0.050 

0.040 

4 

IF-4 

0.100 

0.100 

0.050 

0.020 

4 

IF-S 

0.100 

0.100 

0,050 

0.040 

7 

IF-6 

0.100 

0.100 

0.050 

0.040 

\9 

IF-7 

0.050 

0.150 

0.050 

0.040 

7 

IF-8 

0.100 

0.175 

0.050 

0.040 

4 

IF-9 

0.100 

0.100 

0.100 

0.040 

7 

IF-10 

0.10C 

0.175 

0.050 

0.040 

5 

IF-11 


0.100 


0.100 


0.030 


0.040 


Configuration 
PIF-1  (u) 
PIF-2  (d) 


Hole 

Diameter 

Lip  Length 
(L) 

Gap 

(G) 

Lip 

Thickness 

(t) 

0.050 

0.250 

0.050 

0.062 

C.050 

0.250 

0.050 

0.062 

Number 
d f  Holes 
(n) 

7 


Configuration 

Hole 

Diameter 

(dn) 

Lip 

IlP 

ft 

Lip 

Thickness 

(t) 

Number 

of 

Holes 

(") 

Wiggle-Strip 

Thickness 

(") 

Wiggle-Strip 

Length 

<V) 

Wiggle-Strip 

Pitch 

(*) 

IF/WS-1  (u) 

0.100 

0.100 

0.050 

0.040 

4 

0.010 

0.250 

0.500 

IF/WS-2  (d) 

0.100 

0.100 

0.050 

0.040 

4 

0.010 

0.250 

0.500 

IF/WS-3  (u) 

0.100 

0.250 

0.050 

0.040 

4 

0.010 

0.250 

0.500 

IF/WS-4  (d) 

0.100 

0.250 

0.050 

0.040 

4 

0.010 

0.250 

0.500 

IF/WS-5  (u» 

0.100 

0.250 

0.050 

0.040 

4 

0.010 

0.125 

0.500 

IF/WS-ii  (d) 

0.100 

0.25C 

0.050 

0.040 

4 

0.010 

0.125 

0.500 

IF/WS-7  (u) 

c  100 

0.175 

0.050 

0.040 

0.010 

0.125 

0.500 

IF/WS-8  (d) 

0.100 

0.175 

0.050 

0.040 

4 

0.010 

0.125 

0.500 

ALL  DIMENSIONS  IN  INCHES 


I-—  p  — H 


#=£; 

hCnH 


3^ 


-II- - dn 


(*)  WIGGLE-STRIP  GEOMETRY 


- 

(b)  WIGGLE -STRIP  ORIENTATION 


* 

*  Figure  148 .  Impingement  Film  With  Wiggle- 

Strip  Configurations. 
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Configuration 

Hole 

Diameter 

<dn> 

STEP  Height 
(S) 

STEP  Angle 

(a) 

Number 
of  Holes 
(n) 

HS-1 

0.050 

0.125 

45° 

20 

HS-2 

0.075 

0.187 

45° 

15 

HS-3 

0.100 

0.125 

45° 

10 

'  HS-4 

• 

0.C50 

0.125 

60° 

20 

ALL  DIMENSIONS  IN  INCHES 
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7 . 2 . 1 . 2 . 1  Impingement  Film  Configuration 


In  general,  for  the  impingement  film  configuration,  cooling 
performance  tends  to  increase  with  increasing  W  but  is  rela¬ 
tively  insensitive  to  W’  >  0.*.  F'gure  150  presents  the  data 
for  the  IF  configurations  with  0.60  <_  W  <_  2.46.  The  vertical 
bars  on  the  figure  represent  the  range  of  ordinate  values  cal¬ 
culated  from  the  test  results.  In  some  cases,  the  bars  have 
been  displaced  slightly  from  their  actual  JL/G_value  for  clar¬ 
ity.  For  values  of  W  less  than  0.6  (0.154  <_  W  <_  0.45)  ,  the 
data  indicated  that  performance  decreases  as  a  function  of 
downstream  distance. 


The  data  can  be  represented  by  the  following  equations : 

For  W’  >  0.6, 

T  , 
ad 

11.0  +  0.614  (G/s  -“l'.O)  ]  [i.0  +  0.083  ( 5 . 0  -  L/G)  J 

eq 

=  0.81  +  0.0093  a/U)  (2:10%)  (130) 

For  0.154  <  W'  <  0.45, 

Tad  (W')°*02  (i/G) 

(1.0  +  0.0614  (G/sorf  -  1  0)][1.0  +  0.083  (5.0  -  L/G)  ]~ 

ecj 


=  0.72  +  0.00512  U/G)  (+15%) 


(131) 


The  individual  effects  of  the  geometrical  parameters  L/G, 

G/dn,  etc.,  are  not  nearly  as  evident  in  the  tj)-values  as  in 
the  values  of  Ta<^.  The  parameter  that  displays  the  most 
consistent  influence  on  4*  is  the  injection  rate,  W'._  In 
general,  as  W’  is  increased  from  a  small  value,  say  W'  =  0.2, 
the  value  of  <f>  also  tends  to  increase^  but  the  effect  is  not 
very  consistent  between  W*  =  0.2  and  W'  =  0.45.  Here  4>  should 
be  interpreted  as  a  magnification  factor  on  the  average  heat- 
transfer  coefficient  that  would  be  used  over  the  cooled-panel 
length  in  the  absence  of  the  film-cooling  slot.  This  magni¬ 
fication  is  probably  caused  by  many  factors,  including  the 
high  turbulence  levels  generated  in  +he  jets  before  and  during 
their  turning  by  the  cover  plate,  and  by  the  probable  mainflow 
separation  at  the  cooling  lip  and  reattachment. 

Figure  151(a)  shows  data  for  the  IF  configurations  for  0.154 
<_  W'  <_  0.45.  This  data  is  represented  by  the  following 
equation : 


4)  =  1.3  +  25% 


(132) 
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There  is^  a  gap  in  the  data  between  W*  =  0.45  and  W*  <=  0.6, 
but  at  W’  =  0.6,  the  data  begins  to  exhibit  a  stronger 
dependence  on  the  downstream  distance,  l.  This  is  also  illus¬ 
trated  in  Figure  151(b),  which  presents_data  for  W'  =  1.0. 

Again,  in  this  range,  the  influence  of  W  is  somewhat  inconsis¬ 
tent,  but  the  variation  of  <j>  is  relatively  small.  Consequently, 
the  data  of  Figure  151(b)  represents  the  range  0.6  <_  W  £  1.25. 
It  is  correlated  by  the  equation 

<j>  =  3.45  U/G)~°*25,  +20%  (132) 

for  0.6  <  W'  <  1.25 

For  W'  values  greater  than  1.25,  increasing  W'  consistently 
increases  4>,  and  this  is  illustrated  in  Figure  151(c).  The 
data  is  correlated  by  the  equation 


t 

* 


■/ 


<p(W')~°‘72  =  2 .42  (i/G)  “°  • 2  ,  +15%  (133) 

for  W'  >  1.25 

7 . 2 . 1 . 2  -  2  Impingement  Film  With  Wiggle-Strip  Configuration 

Analysis  of  the  IF  ar.d  IF/WS  data  showed  that  both  Ta(j  and  <j> 
are  essentially  unaffected  by  the  addition  of  a  wiggle  strip. 

It  should  ho  noted  that  the  configurations  explored  represent 
only  a  small  portion  of  possible  wiggle-strip  sizes,  shapes, 
and  lengths.  The  main  variations  studied  were  the  length  of 
the  wiggle  strip,  L',  relative  to  the  ccver-plate  length,  L 
(0.5  £  L'/L  _<  2.5),  and  the  strip  orientation.  Despite  these 
limitations ,  the  results  should  be  representative  of  a  fairly 
large  class  of  wiggle-strip  designs. 

Thus,  a  very  important  conclusion  of  this  study  is  that  if  a 
wiggle  strip  is  necessary  in  a  film-cooling  slot  to  maintain 
the  slot  dimensions,  it  can  be  added  without  sacrificing  the 
film-cooling  performance,  provided  that  strips  similar  to  those 
tested  are  employed. 

7 . 2 . 1 . 2 . 3  Pinched-Impingement  Film  Configuration  * 

The  objectives  of  the  PIF  tests  were  (a)  to  discern  the  effect 
of  a  small  plenum  upstream  of  the  f:. Ira  gap,  and  (b)  to  see  if 
the  orientation  of  the  film  orifices  (see  Figure  152)  in  the  * 

plenum  has  any  effect  on  performance.  During  each  test.,  .  -ly  * 

one  row  of  holes  was  used. 
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From  an  analysis  of  the  data,  it  was  concluded  that  the  per¬ 
formance  is  similar  to  that  achieved  with  the  impingement*' film 
configurations,  and  performance  is  not  significantly  affected 
by  the  location  of  the  injection  holes.  Typical  results  are 
presented  in  Figure  153.  The  solid  line  on  Figure  153  repre¬ 
sents  the  correlating  equation  previously  derived  for  the 
impingc.rient-fiim  results  (Equation  129) . 

) 

4 

It  should  be  noted  that  while  the  pinched-impingement-film 
configuration  may  add  to  the  fabrication  cost,  the  design 
concept  adds  rigidity  to  the  typically  thin  combustor  walls. 

Although  additional  surface  area  is  exposed  to  the  hot  com-  / 

bustion  gas,  metal  temperatures  are  maintained  at  a  low  level 
by  the  impinging  cooling  flow  on  the  inside  (admittedly  at  the 
expense  of  increased  cooling  air  film  temperature) . 

7. 2. 1.2. 4  Hole-Step  Configuration 

Data  for  the  HS  configuration  showed  somewhat  poorer  perform¬ 
ance  than  IF  configurations  having  the  same  W.  As  expected, 
the  best  results  were  obtained  with  a  large  number  of  holes, 
since  this  tends  to  approach  a  nearly  continuous  cooling  film. 

7. 2. 1.2. 5  Correlating  Equations 

The  design  equations  derived  for  the  four  classes  of  film¬ 
cooling  configurations  of  the  present  study  can  best  be  sum¬ 
marized  by  thost:  derived  for  the  impingement-film  configu¬ 
ration,  since  the  equations  are  directly  applicable  to  three 
of  the  four  geometries  testfcd-  The  minor  differences  noted 
for  the  hole-step  configuration  should  be  considered  prior  to 
use  of  the  hole-step  design. 

The  correlated  adiabatic  wall  temperatures  (in  terms  of  T  ,) 
are  given  by 

Tad  (W')B/A  =  C  +  DU/G)  (134) 


where  A  =  [1.0  +  0.0biMG/s  „  “  1.0)]  [1.0  +  0.083(5.0  -  L/G)  ] 
and 


B  =  0 .02 (i/G) 
=  0 

C  =  0.72 
«  0.81 
D  =  0.00512 
*  0.0093 


0.154  <  W  <  0.45 

W  >  0.6 

0.154  <  W'  <  0.45 
W'  >  0 . 6_ 

0.154  <  W'  <  0.45 
W'  >  0.6 


t 
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(135) 


Also,  for  the  heat-transfer  rates 

<MW')E  =  F  (A/ G)H 


where  E  =  0 

=  -0.72 
F  =  1.3 
=  3.45 
=  2.42 
H  =  0 
=  -0.25 

7.2.2  Cooling  Film 


;  0.154  <  W*  <  1.25 
;  W'  >  1.25 
;  0.154  <  W*  <  0.45 
;  0.6  <  W*  £  1.25 
;  W*  >  1.25 
;  0.154  <  W*  <  0.45 
;  0.6  <  W' 

Mixing 


Experimental  and  analytical  studies  were  conducted  to  study 
mixing  rate  between  cooling  air  and  hot  (main)  stream.  The 
impingement- film  cooling-slot  configuration  (shown  as  4-times- 
size  cooling  slot  in  Table  XV)  was  used  to  study  velocity  and 
temperature  profiles  in  line  with  and  between  cooling-slot 
delivery  holes.  A  two-dimensional  parabolic  program  based 
upon  the  Patanker-Spalding  method  was  also  used  to  predict  the 
flow  field. 


» 
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7. 2. 2.1  Experimental  Results 

The  dilution-zone  rig  was  used  to  study  cooling-air/mainstream 
mixing  from  a  4-times-size  cooling  band.  Test  conditions  were 
as  defined  in  Table  XVIII.  Values  of  total  pressure  and  temper¬ 
ature  were  taken  at  radial  increments  of  0.020  inch  for  a 
depth  of  0.5  inch  across  and  beyond  the  slot  discharge. 

These  traverses  were  taken  in  line  with  and  between  cooling- 
slot  delivery  holes  at  six  equally  spaced  axial  positions  from 
0.1  inch  downstream  of  the  slot  to  3.6  inches  down  from  the 
slot.  Typical  velocity  and  temperature  profiles  are  shown  in  • 

Figures  154  and  155.  The  predicted  results  shown  by  dashed  * 

lines  will  be  discussed  later  in  this  section.  Note  the  non¬ 
similarity  between  velocity  and  temperature  profiles,  especially 
at  axial  stations  near  the  cooling  slot.  This  occurs  because  % 

of  the  lip  finite  thickness  inducing  a  low-pressure  region,  « 
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resulting  in  lower  axial  velocity  near  the  lip  region.  The 
flow  field  in  line  with  the  cooling  slot  entry  holes  is  remark¬ 
ably  different  from  that  between  cooling  slot  delivery  holes, 
in  spite  of  using  a  continuous  splash  plate.  The  velocity 
decay  rates  and  temperature-rise  rates,  as  shown  in  Figures 
156  and  157  for  two  depths  (0.02  and  0.06  inch),  for  in-line 
and  between  the  entry  holes  are  also  different,  thus  indicating 
the  3-D  flow  effects  even  at  axial  stations  beyond  20  times 
the  slot  height. 

The  mixing  characteristics  of  the  cooling  airstream  with  the 
mainstream  can  be  studied  by  noticing  isothermal  lines.  The 
mixing  depth,  y  (defined  as  the  transverse  location  for  each 
axial  station  where  temperature  was  600°F) ,  variation  with  x 
for  different  W  values  is  shown  in  Figure  158.  Both  y  and  x 
have  been  normalized  by  slot  height,  s.  Note  that  the  mixing 
is  reduced  with  decreasing  W,  that  the  mixing  rates  are  rapid 
for  the  first  eight  slot  heights  downstream,  followed  by  a 
slower  rate  for  up  to  22  slot  heights. 

Beyond  30  slot  heights  the  mixing  is  very  rapid,  indicating 
uneffectiveness  of  the  cooling-film  protection.  It  can  also 
be  concluded  tentatively  that  mixing  is  minimized  (i.e., 

HFiLM  is  maximized)  by  matching  mainstream  and  cooling-film 
velocities  and  not  mass  velocities  for  the  case  studied. 

This  may  not  be  true  for  cooling  in  an  actual  gas  turbine 
combustor  because  of  higher  turbulence  level  and  radiant 
heat  loading. 

7. 2. 2. 2  Analytical  Predictions 

A  two-dimensional  parabolic  computer  program  was  used  to  pre¬ 
dict  velocity  and  temperature  profiles  downstream  of  the 
cooling  slot,.  The  numerical  scheme  involves  simultaneous 
solution  of  the  parabolic,  two-dimensional  partial  differen¬ 
tial  momentum  and  energy  equations  with  temperature-dependent 
properties. 

In  the  present  work,  the  measured  velocity  and  temperature 
profiles  obtained  nearest  the  cooling  band  (0.10  inch  down¬ 
stream  of  the  lip)  are  averaged  in  the  spanwise  direction  and 
used  as  initial,  or  starting,  values  for  the  numerical 
computations.  Corresponding  spanwise  averaged  or  two- 
dimensional  equivalent  downstream  values  of  velocity  and 
temperature  are  predicted  numerically  for  the  panel  surface 
temperature  distribution  that  was  present  when  the  profiles 
were  obtained.  The  predicted  and  measured  downstream  pro¬ 
files  are  compared,  and  the  reasonably  good  agreement  ob¬ 
tained  establishes  confidence  in  the  numerical  solution. 

Next,  the  same  measured  initial  profiles  are  used,  together 


Figure  156.  Velocity  Decay  Curves. 


Figure  157.  Temperature  Decay  Curves. 
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with  an  adiabatic  surface  boundary  condi tion(  to  numerically 
predict  the  adiabatic  wall  temperature  distribution  for  the 
injection  conditions . 

The  initial  velocity  and  temperature  profiles  (0.100  inch 
downstream  of  the  slot)  are  presented  in  Figures  154 (a)  and 
155(a)  for  values  of  W  =  2.79  and  1.19,  respectively.  Of  par¬ 
ticular  interest  is  the  spanwise  variation  in  velocity  and 
temperature  apparent  from  the  surveys  taken  in  line  with  the 
supply  holes  and  between  the  slot  holes.  The  spanwise  vari¬ 
ation  in  velocity  is  significant  and,  taken  alone,  seems  to 
indicate  that  three-dimensional  effects  introduced  by  the 
supply  holes  still  dominate  the  flow  despite  the  long  (6.25) 
lip-to-gap  spacing  ratio.  From  a  film-cooling  standpoint, 
however,  the  small  variation  in  spanwise  temperature  profiles 
is  more  significant  and  indicates  that  full  spanwise  coverage 
of  the  film  has  been  achieved. 

For  the  numerical  predictions  of  the  equivalent  two- 
dimensional  downstream  fields,  the  measured  in-line  and 
between-line  values  of  Figures  154(a)  and  155(a)  were  arith¬ 
metically  averaged  and  used  as  starting  values  for  the  down¬ 
stream  computations. 

Figures  154(b)  and  154^(c)  show  results  of  the  numerical 
computations  for  the  W  =  2.79  test  at  two  locations,  0.80 
inch  and  2.20  inches  downstream  of  the  lip.  Figures  155(b)  and 
155(c)  show  similar  results  for  the  W  =  1.19  tests.  Although 
considerable  spanwise  velocity  difference  still  exists  at 
these  downstream  locations,  the  good  agreement  noted  for  the 
predicted  and  measured  temperature  profiles  lends  confidence 
to  the  use  of  the  equivalent  two-dimensional  numerical  pro¬ 
cedure  for  predicting  the  film-cooling  performance.  Figure 
159  shows  downstream  surface  temperatures  predicted  for  the 
four  cases  with  an  adiabatic  boundary  condition.  Predicted 
mixing  depths  shown  in  Figures  154  and  155  are  similar  to  those 
measured,  indicating  again  that  mixing  is  minimized  as  cooling- 
film  velocity  approaches  mainstream  velocity. 

7.3  RADIANT  HEAT-TRANSFER  ANALYSIS 


7.3.1  Model  Definition 

An  analysis  to  determine  the  net  radiant  heat  flux  to  a  com¬ 
bustor  surface  element  must  include  flame  radiation,  gas 
radiation,  gas  attenuation,  and  wall-to-wall  ex&hange  consid¬ 
erations.  In-depth  studies  of  the  above  exchange  mechanisms 
can  be  obtained  from  the  literature.  For  this  reason,  only  a 
brief  review  of  the  basic  concepts  is  given. 


Figure  159.  Predicted  Adiabatic  Wail 
Temperature  Versus  Axial 
Distance . 


The  monochromatic  radiation  intensity  of  a  blackbody  (or 
perfect  radiator)  in  a  direction  normal  to  the  surface  is 
defined  by  Planck's  law: 


2 

where  I^n  =  monochromatic  radiation  intensity,  Btu/hr/ft  /y 

C1  =  1.889  X  107,  Btu  y4/hr/ft2 
C2  =  25896  y°R 
A  =  wavelength,  y 
T  =  temperature,  °R 

Total  emission,  E,  is  obtained  by  integrating  this  equation 

4 

over  all  wavelengths.  The  resulting  relation,  E  =  oT  ,  is 
known  as  the  Stefan-Boltzmann  law,  in  which 

2 

E  =  emission,  Btu/hr/ft 
a  =  Stefan-Boltzmann  constant 
=  0.173  x  10"8  Btu/hr/ft2/0 R4 
T  =  temperature,  °R 

The  true  emission  from  a  real  surface,  however,  is  not  equal 
to  that  from  a  perfect  radiator.  The  racio  of  the  emissive 
power  of  any_body  to  that  of  a  blackbody  is  known  as  the 
emissivity  (e) .  In  general,  the  emissivity  of  a  surface  is 
a  function  of  surface  temperature,  surface  finish,  material, 
and  direction.  Thermodynamic  equilibrium  dictates  that  the 
energy  absorbed  by  a  body  must  be  equal  to  that  emitted — i.e., 
absorptivity  a  =  emissivity  e. 

Gas  radiation  can  be  characterized  as  either  nonluminous  or 
luminous.  Nonluminous  radiation  is  a  banded  (discrete 
wavelength)  type  of  emission,  whereas  luminous  radiation 
is  a  continuous  type  of  emission,  similar  to,  but  not  identi¬ 
cal  with,  that  produced  by  a  blackbody.  A  plot  of  intensity 
versus  wavelength  is  shown  in  Figure  160  to  illustrate  this 
point.  The  important  nonluminous  bands  in  a  gas  turbine  com¬ 
bustor  are  those  due  to  carbon  dioxide  and  water  vapor.  The 
continuous  luminous  radiation  is  due  to  carbon  particle  emis¬ 
sion. 
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7. 3. 1.1  Radiant  Interchange  With  Transparent  Media 

For  a  multizoned  enclosure,  consideration  should  be  given  to 
surface  reflections  and  the  fraction  of  the  emission  from 
that  radiating  surface  which  reaches  and  is  absorbed  by  the 
surface  under  consideration.  This  is  known  as  the  view  (or 
form)  factor. 


The  view  factor  for  energy  leaving  Surface  1  (Area  A^)  being 
received  on  Surface  2  (Area  A2)  is  defined  as 


A1  A2 


CosQ^  CosSj 


2 

irr 


dA2dA1 


(136) 


where  r  =  distance  between  surfaces 

0.  =  angle  b ?t'  oen  the  normal  to  A^  and  a  line 
forming  ui?  center  of  A^  to  A2 

0„  =  angle  between  the  normal  to  A2  and  the 
line  joining  the  center  of  A2  to  A^ 

Evaluation  of  the  view  factors  is,  in  general,  extremely 
complex,  but  a  relatively  simple  three-dimensional  factor  can 
be  defined  by  an  extension  of  Hottel*  s^-*  two-dimensional 
"string  method."  The  general  geometry  considered  is  shown  in 
Figure  161,  and  the  resulting  view  factor,  F12,  is 

r,  _  AC  +  BD  -  (AD  +  BC)  (FG  +  EH)  -  (EG  +  FH) 

F12  2AB  2GH  1  } 


i.e.,  the  three-dimensional  factor  is  defined  as  the  product 
of  the  two  two-dimensional  factors . 

Comparison  with  a  number  of  analytical  solutions  showed  no 
error  for  two-d’nensional  view  factors  and  maximum  of  15  per¬ 
cent  error  in  three-dimensional  factors  for  typical  combustor 
type  geometries.  It  is  anticipated  that  all  combustor  walls 
will  have  a  surface  emissivity  of  0.8  or  greater  so  that  any 
additional  complications  recessary  to  account  for  reflections 
can  be  ignored  without  introducing  significant  error. 

7 . 3 . 1 . 2  Radiant  Interchange  in  Participating  Media 

58 

Gas  radiation  has  been  correlated  by  Hottel  with  use  of  a 
mean-beam-length  concept.  Hottel  defined  the  mean  beam  length 
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as  the  radius  of  a  gas  hemisphere  that  will  radiate  to  the  unit 
area  at  the  center  of  its  base  the  same  as  the  average  radia¬ 
tion  over  the  area  from  the  actual  gas  mass.  An  approximate 
mean-beam- length  formula  was  suggested  by  Hottel: 

MBL  =  4  V/A  (138) 

where  MBL  =  mean  beam  length,  ft 

V  =  volume  of  gas,  ft^ 

A  =  total  surface  area  enclosing  volume,  fu 

A  comparison  of  values  obtained  with  use  of  this  simple 
formula  with  values  obtained  by  path-length  integration  showed 
only  small  percentage  differences  for  parallelepiped  gas 
shapes.  It  was  therefore  concluded  that  the  approximate 
beam-length  formula  should  be  used. 

Numerous  methods  are  available  in  the  literature  for  estimat¬ 
ing  gas  emissivities. ^ ^  Most  are  based  on  data  taken 
at  less  than  5  atmospheres'  pressure.  Of  the  methods  avail¬ 
able,  that  recommended  by  Reeves is  the  most  convenient  to 
use.  He  recommends  that  nonluminous  emissivity  be  given  as 

1^  =  1  -exp  (-3.86  x  104  P ( f/a) 0  * 5 (MBL) 0  * 5  Tg  -1.5)  (139) 

wfere  P  is  in  atmospheres,  MBL  in  feet,  and  Tg  in  °R. 

Equation  (138)  was  compared  with  emissivity  obtained  from 
charts  prepared  by  Hottel  for  fuel  of  the  type  CnH2n  at 
stoichiometric  and  fuel  lean  conditions.  The  results  obtained 
showed  that  Reeves'  correlation  underestimates  the  emissivity 
from  6  to  17  percent  through  the  range  1  to  5  atmospheres, 
with  less  error  between  6  and  10  atmospheres .  It  was  neces¬ 
sary  to  extrapolate  Hottel 's  water-vapor  emissivity  data  to 
obtain  values  beyond  2.4  atmospheres. 

Radiation  from  a  surface  element  through  the  gas  to  another 
surface  element  is  partially  absorbed  by  the  gas.  A  simple 
formulation  was  derived  based  on  Hottel ' s  charts  for  carbon 
dioxide  and  water  vapor. 


Absorptivity  a  =  e  (T  /T  ) 
g  g  g  s' 


0.55 


(140) 


This  equation  gives  values  that  are  generally  2  percent  less 
than  those  obtained  with  use  of  Hottel 's  charts  when  the  gas 
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temperature  in  Reeves'  equation  is  replaced  by  the  assumed 
surface  temperature.  For  the  range  of  values  selected  for 
the  comparisons,  the  absorptivity  was  typically  14  percent 
greater  than  the  emissivity. 

7. 3. 1.3  Luminous  Radiation 


Luminous  radiation  from  a  flame  appears  to  the  eye  as  a  yellow- 
orange-red  flame  and  is  caused  by  carbon  particles  in  the 
flame  that  emit  over  a  nearly  continuous  spectrum.  Determina¬ 
tion  of  the  carbon  particle  concentration  would  facilitate  the 
calculation  of  luminosity,  but  no  successful  method  is  avail¬ 
able  for  concentration  predictions. 

62 

A  luminosity  factor  (Lf)  as  evaluated  by  Thring  and  Holliday 
Can  be  included  in  Reeves'  equation  to  account  for  the  lumi¬ 
nous  radiation 


Lf  7.53  (C/H  -  5.5)0,84  (141) 

(for  a  typical  jet  fuel  of  C  H~  composition,  the  luminosity 
factor,  Lf  =  4.2) .  n  zn 

The  luminous  flame  emissivity  can  now  be  predicted  from  Reeves' 
equation  by  replacing  P  by  the  product  of  the  pressure  in  atmo¬ 
spheres  and  the  luminosity  factor. 

The  separate  radiation  factors  outlined  above  provide  the 
necessary  inputs  for  the  radiation  interchange  equations. 

7 . 3 . 1 . 4  Radiation  Interchange  Equation 

The  radiation  interchange  equations  are  developed  for  a  typical 
surface  and  gas-element  geometry  as  shown  in  Figure  162. 


SURFACE  ELEMENT 


n 


SURFACE  ELEMENT 


Figure  162.  Typical  Surface  and  Gas  Element. 


The  heat  transfer  from  Surface  n  to  Surface  1  (qn-i)  is  th e 

emission  from  Surface  n,  e  A„  F-  E  .  lass  the  fraction  of 

n  n  nl  _n 

this  emission  absorbed  by  the  gas,  a  .  Thus,  the  incident 
radiation  on  1  from  n  is  g 


<J  ^(incident)  =  \  Pnl  En  -  cg  A„  ?nl  E„ 

=  Tg  Fn  An  Fnl  En  <since  Tg  ‘  1  '  “g> 

(142) 

The  fraction  of  this  radiation  that  is  absorbed  by  Surface  1  is 
the  absorptivity,  on  .  For  thermodynamic  equilibrium,  the 
absorptivity  and  emissivity  are  equal,  with  a  gray  surface 
assumed,  and  the  heat  transfer  from  Surface  n  absorbed  by 
Surface  1  is 


%-l  (^sorbed)  =  i  ^  ?n  An  Fnl  En 


(143X 


Tg  £1  en  A1  Fln  En  (since  *h  Fnl  "  A1  Fln> 


Similarly,  the  heat  transfer  from  Surface  1  that  is  absorbed  by 
Surface  n  is 


q  ,  (absorbed)  =  T  e  e.  A.  F1r,  E, 
n-i  g  n  i  i  in  i 


(144) 


All  three  equations  [(142),  (143),  and  (144)]  include  only  the 
direct  interchange.  The  effect  of  surface  reflections  is 
assumed  negligible  in  view  of  the  anticipated  surface  emissivi- 
ties . 

The  heat  transfer  from  the  gas  element  shown  in  Figure  162  to 
Surface  1  is 


4  a  £  A,  E 

g-i  gig 


(145) 


and  the  amount  of  this  radiation  absorbed  by  Surface  1  is 

6  .=  e.  e  A.  E 

M  g-L  1  g  1  g 


(146) 


The  heat  transfer  from  Su 'face  1  absorbed  by  the  gas  element  is 


d.  =  a  e,  A.  E, 
^1-g  gill 


(147) 


The  net  radiant  heat  transfer  at  Surface  1  is  therefore  equal 
to  the  sum  of  the  radiation  from  Surface  n  to  Surface  1  and 
the  radiation  from  the  gas  to  Surface  1,  less  the  sum  of  the 
radiation  from  Surface  1  to  Surface  n  and  the  radiation  from 
Surface  1  to  the  gas . 


29.5 


That  is,  Q  =  q  .  +  q  .  -  g,  -  q, 

n-x  g-x  X“ri  x“v 


(148) 


=  i  e  e.lA.  F.  (E  -  E.)  +  e,  e  A.  (E  -  E.) 
gnlllnn  1  1  g  1  g  1 


where  the  gas  is  assumed  gray  (i.e.,  a  =  e  ). 

y  y 

7.3.2  Element  Tests 

Thermal  radiation  of  the  gas  and  flame  was  measured  at  three 
locations  within  the  L-pipe  combustor  primary  zone.  Measure¬ 
ment  was  by  means  of  three  Leeds  and  Northrup  Ray o tubes ,  each 
having  a  focal  length  of  12  inches  and  a  target  diameter  of 
0.25  inch.  The  three  instruments  were  calibrated  by  Leeds  and 
Northrup  with  the  use  of  a  blackbody  source  viewed  through  a 
sapphire  window.  Calibration  output  was  in  the  form  of  Rayo- 
tube  output  signal  in  millivolts  versus  radiant  heat  flux  in 
Btu  per  hour  per  square  foot. 


The  Rayotubes  were  focused  into  the  combustor  through 
sapphire  windows,  as  shown  in  Figure  163.  Figures  164  and  165 
show  the  orientation  of  the  Viewport  on  the  combustor.  Each 
viewing  port  was  surrounded  by  a  well  and  was  supplied  with 
external  air,  both  to  cool  the  window  and  to  keep  it  clean. 

The  optics  of  the  12.0-inch  focal  length  Rayotubes  were  such 
that  the  instrument  viewed  the  radiation  vrithin  the  truncated 
cone  shown  previously  in  Figure  163 — i.e.,  for  the  combustor 
1.37  inches  in  depth,  the  back-wall  diameter  was  0.35  inch. 

The  mean  beam  length  for  this  truncated  cone  was  0.3  inch. 

This  value  of  mean  beam  length  was  used  in  the  emissivity 
correlation  to  predict  emission  from  this  truncated  cone  as  a 
function  of  pressure  level,  temperature,  luminosity,  and  fuel- 
air  ratio.  The  predictions  for  both  luminous  and  nonluminous 
radiation  as  functions  of  gas  temperature  and  pressure  are 
shown  in  Figures  166  and  167.  For  nonluminous  emission,  L^  = 
1,  the  fuel-air  ratio  was  assumed  to  be  0.04,  since  this  is  a 
representative  value  of  nonluminous  emission.  As  shown,  the 
predicted  radiant  heat  flux  increases  significantly  with  both 
temperature  and  pressure.  For  luminous  emission,  the  lumi¬ 
nosity  factor  was  taken  as  4.2,  and  the  fuel-air  ratio  was 
assumed  to  be  0.06,  as  a  representative  value  for  luminous 
emission.  Again  the  significant  effect  of  temperature  and 
pressure  is  shown. 


Figure  168  shows  the  influence  of  fuel-air  ratio  as  an  isolated 
parameter  with  the  luminosity  factor  as  a  constant.  Fuel-air 
ratio  as  such  is  of  secondary  importance  in  comparison  to  the 
effect  of  luminosity,  pressure  level, and  temperature.  This  is, 
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Figure  167.  Measured  and  Predicted 
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Figure  168.  Radiant  Heat  Flux  Variation 
With  Fuel-Air  Ratio. 


of  course,  eliminating  the  effect  of  fuel-air  ratio  on  the 
luminosity  factor. 

Radiant  flux  experimental  data  was  obtainea  for  viewing  ports 
1  through  3,  as  shown  in  Figure  165.  Each  Rayotube  was  aligned 
to  be  normal  to  the  viewing  port  in  the  combustor  wall  and  at 
12  inches  focal  length.  The  wall  temperatures  cited  in  the 
results  of  Table  XIX  are  the  values  directly  opposite  the  view¬ 
ing  port  and  are  used  to  correct  the  radiant  flux  data.  Gas 
temperatures  were  taken  at  three  radial  positions  in  line  with 
each  viewing  port.  The  Rayotube  signal  levels  were  not  con¬ 
stant  for  some  conditions,  but  visual  observation  through  the 
viewing  ports  confirmed  that  the  flame  itself  was  "flickering" 
and  that  it  was  not  caused  by  instrumentation  instability. 

Determination  of  local  fuel-air  ratios  was  not  possible,  but 
because  this  ratio  is  a  second-order  variable  in  the  emissivity 
prediction  equation,  the  predicted  and  the  measured  data  were 
compared . 

The  portion  of  the  radiant  energy  attributable  to  emission  and 
reflection  for  the  combustor  back  wall  was  calculated  from 

qr  =  F12  a  ?r  Tr  4  (149) 


where  q  =  back-wall  emission 
F12  =  view  factor 
a  =  Stefan -Boltzmann  constant 
er  -  back-wall  emissivity 
Tr  =  back-wall  temperature 

All  the  above  quantities  are  known,  assumed,  or  measured,  ex¬ 
cept  for  the  view  factor.  For  the  geometry  (truncated  cone) 
considered,  the  view  factor  calculated  from  Equation  (135)  is 
equal  to  0.0886.  Assumed  back-wall  emissivities  of  0.8  and 
0.9  were  used  in  conjunction  with  the  back -wall  temperature 
measurements  and  the  view  factor  to  determine  the  flux  attrib¬ 
utable  to  the  back  wall.  The  correct  flame  and  gas  flux  is 
the  total  radiation  less  this  back-wall  radiation. 

Figure  167  is  a  plot  of  predicted  radiant  heat  flux  for  both 
luminous  and  nonluminous  radiation  at  pressure  levels  of  2,  7, 
13,  and  16  atmospheres.  For  both  emission  levels,  typical 
fuel-air  ratios  were  assumed — 0.04  for  the  nonluminous  case  and 
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0.06  for  the  luminous  case.  Data  points  of  Table  XIX  are 
plotted  on  Figure  167,  and  these  show  qualitative  agreement 
with  the  predicted  lines. 

7.3.3  Conclusions 

A  review  of  the  data  and  analysis  was  made,  and  the  following 
conclusions  were  drawn: 

o  The  prediction  technique  provides  data  of  the 
correct  order  of  magnitude. 

o  The  assumptions  made  in  the  analysis  do  not 
invalidate  the  technique. 

o  Experimental  data  is  difficult  to  obtain,  and  more 
controllable  conditions  will  be  required  for 
improved  quantitative  analysis. 

Either  luminous  or  nonluminous  radiation  to  the  walls  of  a 
combustor  necessitates  the  use  of  a  percentage  of  the  total 
available  combustor  airflow  for  cooling  purposes.  As  inlet 
temperature,  inlet  pressure,  and  discharge  temperature  in¬ 
crease,  so  does  the  percentage  of  total  air  required  for 
cooling.  With  low-airflow,  nigh- turbine-inlet-temperature 
combustors,  this  cooling  air  can  be  greater  than  50  percent  of 
the  total  airflow. 

Minimizing  the  liner  surface  area  to  minimize  the  amount  of 
cooling  air  required  reduces  the  inner  and  outer  radii  with  an 
even  greater  effect  on  combustor  volume.  This  decrease  in 
volume  adversely  affects  altitude  relight  capabilities  and 
increases  the  heat  loading  of  the  liner.  If  dome  height  is 
reduced  <-o  limit  outer  liner  radius  and  thus  surface  area,  fuel 
impingen. ir t  on  the  liner  walls  and  quenching  must  be  consid¬ 
ered.  Fuel  impingement  is  a  major  cause  of  liner  hot  spots; 
and  if  partial  quenching  and  carbon  formation  take  place,  lum¬ 
inous  radiation  from  the  carbon  particles  significantly  in¬ 
creases  the  radiation  flux,  thus  requiring  a  further  increase 
in  cooling.  Other  undesirable  effects  include  reduced  combus¬ 
tion  efficiency,  increased  carbon  monoxide,  and  unburned  hydro¬ 
carbon  emission  levels. 

Pooling  requirements  with  the  use  of  conventional  film  cooling 
techniques  are  one  of  the  most  severely  limiting  factors  in 
the  design  of  lew-airflow,  high-pressure,  high- temperature-rise 
combustors.  When  recuperation  is  used  with  the  cycle  that  was 
utilized  for  this  program,  calculations  show  that  as  much  as 
60  percent  of  the  total  airflow  would  be  required  for  cooling, 
indicating  that  alternate  cooling  techniques  are  necessary. 


305 


Alternate  techniques  could  include  impingement  cooling  and 
convective  cooling,  possibly  combined  with  film  cooling.  An 
ideal  solution  would  be  an  uncooled  ceramic-type  liner,  but  at 
the  present  time  this  does  not  appear  feasible  for  production 
application. 


8.0  CONCLUSIONS  AND  RECOMMENDATIONS 
8.1  CONCLUSIONS 

The  following  conclusions  were  derived  from  the  activities  of 
Phases  I  and  II  of  the  program: 

(a)  The  fuel-injector  models  successfully  correlated 

*  experimental  and  analytical  data  for  three  fuel- 

injection  systems.  The  major  problem  identified 
for  small  combustors  concerns  excessive  or  un¬ 
controlled  impingement  of  fuel  on  the  combustor 

,  wall.  Air-assist  and  pneumatic-impact  injectors 

provide  excellent  atomization,  but  this  advantage 
is  largly  negated  in  small,  narrow-annulus  com¬ 
bustors  by  wall  impingement.  L-pipe  injectors 
attempt  to  capitalize  on  the  wall  impingement 
problem  by  purposely  depositing  fuel  on  the  com¬ 
bustor  dome  to  achieve  controlled  evaporation,  but 
problems  were  experienced  with  poor  distribution 
and  durability.  It  was  concluded  that  the  emphasis 
should  be  placed  on  a  system  that  achieves  good 
atomization  without  wall  impingement  and  with  good 
contamination  resistance. 

(b)  The  primary-zone  model  based  on  the  Spalding-Cosman 
two-dimensional  elliptic  program  successfully  pre¬ 
dicted  flow  patterns  for  the  two-dimensional  water 
rig  and  the  two-dimensional  cold-flow  rig.  Some 
problems  were  experienced  when  hot  flow  with 
combustion  was  considered,  but  the  results  still 
showed  that  predictions  for  the  gross  flow-field 
characteristics  are  possible. 

(c)  At  the  present  time,  the  method  is  not  capable  of 
successful  emission  predictions,  but  can  be  used 
for  the  preliminary  design  phase  of  combustion 
systems  to  minimize  development  time.  It  can  also 
be  used  to  determine  the  effects  of  'inor  hardware 
changes. 

* 

t 


* 
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(d)  Particularly  for  small  combustors,  primary-zone 
performance  is  highly  dependent  on  the  means  by 
which  the  recirculation  zone  is  terminated.  Analysis 
and  development  can  be  most  effective  when  the  pri¬ 
mary  and  dilution  zones  are  considered  together, 
rather  than  separately. 

(e)  The  dilution-zone  models  can  be  successfully  applied 

to  the  prediction  of  orifice  discharge  coefficients  * 

and  outer  annulus  flow  effects ?  including  compressor  ' 

exit  distortion.  Jet  and  cooling-flow  penetration 
and  spreading  rates  can  be  determined.  The  effects 
of  duct  length  and  duct  turning  on  pattern  factor  t 

can  be  estimated. 

(f)  The  ignition  energy  model  requires  estimates  of 
turbulence  level,  vapor  fuel -air  ratio  at  the 
igniter,  and  mixture  velocity,  all  of  which  are 
difficult  to  determine.  A  parametric  study  showed 
that  the  model  can  be  used  as  a  guide  to  required 
energy  levels  for  ignitions. 

(g)  Film-cooling  models  that  successfully  predict  the 
film  effectiveness  and  film  mixing  characteristics 
of  impingement  film-cooling  slots  can  predict  liner 
cooling  performance  with  fair  accuracy. 

(h)  The  flame  radiation  model  is  capable  of  predicting 
the  order  of  magnitude  of  the  heat  flux  based  on 
the  assumption  of  either  luminous  or  nonluminous 
emissivity.  View  factors  can  be  included  for  most 
combustor  shapes  with  errors  not  exceeding  +15 
percent. 

(i)  Material  screening  tests  have  shown  that  IN-586 
is  well  suited  for  combustor  application. 

The  individual  models  combine  to  form  a  successful  tool  in  the 
initial  stages  of  combustor  design,  and  provide  considerable 
assistance  in  rapidly  estimating  the  effect  of  proposed  hard¬ 
ware  charges.  The  above  capability  therefore  car.  be  used  to 
minimize  development  time  and  costs.  * 

8.2  RECOMMENDATIONS  FOR  FUTURE  ANALYTICAL  STUDIES 

It  is  recommended  that  the  following  analytical  studies  be 
undertaken  to  further  develop  analytical  modeling  of  gas  tur-  k 

bine  combustors. 
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o  Internal  flow  modeling  with  respect  to  turbulence 
me  deling,  faster  computation  scheme,  and  realistic 
kinetic  scheme 

o  Prediction  of  air  recirculation  ratio  from  the 
primary  holes  of  annular  combustors 

o  Three-dimensional  dilution-zone  analysis 

o  Fuel-injection  models,  such  as  predicting  SMD 

of  any  injector,  matching  of  fuel  injector  with 
dome,  and  interaction  between  droplets 

o  Cooling-air  requirement  studies  with  respect  to 
the  effect  of  flow  field,  turbulence  level,  and 
radiant  heat  loading 

o  Application  of  different  element  models  to 

predicting  emission,  combustion  efficiency,  etc., 
of  any  combustor 

8.3  RECOMMENDATIONS  FOR  FUTURE  EXPERIMENTAL  AND  DEVELOPMENT 

STUDIES 


It  is  recommended  that  the  following  experimental  and/or 
development  studies  be  undertaken  in  conjunction  with  or 
independent  of  analytical  studies: 

o  Experimental  work  to  update  fluid-dynamic  models 
such  as  primary-zone  model,  three-dimensional 
dilution-zone  model,  etc. 

o  Effect  of  surface-to-volume  ratio  of  combustors 
on  performance  and  emission 

o  Effect  of  different  wall-cooling  schemes  on 
combustion  efficiency  and  emission 

o  Noise  prediction  and  trade-off  between  noise, 
pollutant  emissions,  and  combustor  performance 

o  Detailed  study  of  flow  conditions  at  the  igniter 
tip  to  improve  input  data  for  the  ignition  model 
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APPENDIX  I 


AIR-ASSIST  PRESSURE  ATOMIZER 
COMPUTER  PROGRAM  1527 


1 . 0  INTRODUCTION 

Computer  Program  1527  analyzes  a  pressure  atomizer  to 
determine  spray  formation  and  evaporation.  The  atomizer  can 
be  a  simplex  or  dual-orifice  type  and  may  have  air  assist. 

Spray  trajectories  and  evaporation  are  computed  for  two  op¬ 
tional  ambient  environments. 

2.0  PROGRAM  INPUT 

Program  input  is  shown  in  Figure  169.  The  first  card  is 
a  title  card.  The  second  card  defines  the  atomizer  with  the 
following  data: 

(a)  Atomizer  type:  1  =  simplex,  2  =  dual  orifice 

(b)  Air-assist  option:  1  =  no  assist,  2  =  with  assist 

(c)  Primary  fuel  flow  number,  PPH/PSI0,5 

(d)  Secondary  fuel  flow  number,  PPH/PSI0,5 

(e)  Spray  cone  angle,  deg 

(f)  Effective  area  of  the  assist  air  shroud,  sq  in. 

(g)  Primary  orifice  diameter,  in. 

(h)  Secondary  orifice  diameter,  in. 

4 

The  third  and  fourth  data  cards  are  entered  only  for  a 
dual  orifice  type  and  contain  the  fuel  flow  versus  pressure 
characteristic  of  the  combined  flow  divider  and  secondary  ori¬ 
fice.  The  first  point  is  the  flow-divider  crack  point,  and  the  * 

remaining  four  points  are  selected  ever  the  anticipated  flow 
range . 

The  fifth  card  defines  the  atomizer  flow  conditions:  > 

(a)  Fuel  type,  2  =  JP-5,  4  =  -JP-4 

(b)  Airflow  option:  1  -•  uniform  stream,  2  =  2-D  Gosman 
flow  field  input  from  TAPE1 
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Figure  169.  Air-Assist  Pressure  Atomizer 
Program  No.  1527  Input  Data. 
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(c)  Fuel  inlet  temperature,  °R 

id)  Fuel  flow  rate,  lb/hr 

(e)  Fuel  differential  pressure,  psi  (optional) 

(f)  Assist  air  differential  pressure,  psi 

(g)  /assist  air  temperature,  °R  f 

If  (e)  above  (fuel  differential  pressure)  is  entered,  the 
fuel  flow  is  computed  from  the  flow  number,  and  the  fuel  flow 
entered  (d)  is  ignored.  If  (e)  is  blank  or  zero,  tne  entered  ,1 

fuel  flow  is  used. 

There  are  two  airflow  options  to  define  the  ambient  en¬ 
vironment  for  spray  trajectory  calculations.  Option  1  defines 
an  airstream  with  uniform  velocity  and  temperature  flowing 
parallel  to  the  axis  of  the  atomizer.  A  positive  value  for 
gas  velocity  denotes  flow  in  the  spray  direction.  Option  2 
provides  for  the  input  of  a  disk  file  or  tape,  identified  as 
TAPE1,  containing  a  two-dimensional  flow  field  as  obtained 
with  Gosman  Program  Number  1338.  For  this  option,  the  fuel 
evaporation  rates  in  lb/sec/ft-Vradian  are  written  on  TAPE2 
for  input  into  the  Gosman  program. 

The  sixth  data  card  contains  the  following  information 
required  for  the  airflow  options: 

Option  1,  Uniform  Streams 

(a)  Tgas»  airstream  temperature,  °R 

(b)  vgas'  airstream  velocity,  ft/sec 

(c)  Pgas ,  airstream  pressure,  psia 

(d)  X  ,  flow  field  length  limit,  in. 

(e)  Y  ,  flow  field  radial  limit,  in. 

TUclX 

Option  2,  2-D  Flow  Field  • 

(a)  Ynoz,  axial  location  of  the  spray  origin  relative 
to  the  flow-field  origin 

J 

(b)  Ynoz ,  radial  location  of  the  spray  origin  rolative  * 

to  the  flow-field  origin 

(c)  flow-field  gas  pressure,  psia 
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(d}  X  ,  flow-field  length  limit,  in. 
max 

(e)  Y  flow-field  radial  limit,  in. 
max 

3.0  PROGRAM  COMPUTATIONS 


A  listing  of  the  program  is  presented  in  Table  XX.  For 
a  dual  orifice  nozzle,  the  drop  size  is  computed  from  a  com¬ 
bined  sheet  thickness  from  both  orifices.  Spray  trajectories 
and  evaporation  are  then  computed  for  each  five  drop-size 
groups  sized  in  ratios  to  the  SMD. 

4.0  PROGRAM  OUTPUT 

A  copy  of  a  program  output  for  the  two  typical  cases  is 
shown  in  Table  XXI.  A  plot  tape  is  writcen  to  plot  the  tra¬ 
jectories  for  each  of  the  five  drop  groups.  When  Option  2  is 
specified,  an  output  tape,  identified  as  TAPE2,  is  written 
containing  the  total  evaporation  rates  at  each  grid  node  in 
the  Gosman  program  solution  that  supplied  the  two-dimensional 
flow  field. 

This  program  can  be  run  separately  from  the  Gosman  pro¬ 
gram  with  tapes  saved  between  runs .  The  two  programs  can  also 
be  run  together  in  a  combined  sequential  run  for  repetitive 
iteration  of  the  solutions. 

5.0  PROGRAM  USAGE 

No  attempt  has  been  made  to  provide  for  the  design  of 
internal  details  of  the  atomizer.  This  type  of  atomizer  is 
best  made  by  fuel  nozzle  manufacturers  who  can  provide  the 
orifice  diameters  required  for  program  input. 

Injector  performance  can  be  computed  at  critical  engine 
conditions  such  as  light-off,  maximum  loading,  idle,  and 
maximum  power  design  points. 

SMD  only,  without  spray  trajectories,  can  be  computed 

with  OPTION1  by  setting  X  and  Y  ,  Card  6  to  zero.  When 

max  max 

fuel-flow  and  air-assist  conditions  are  determined  to  provide 
satisfactory  SMD  levels,  spray  trajectories  can  then  be  com¬ 
puted  to  assess  spray  penetration.  This  provides  guidance  in 
fuel  nozzle  spacing  and  prevention  of  combustor  wall  impinge¬ 
ment. 


Finally,  the  program  can  be  used  in  conjunction  with  a 
primary- zone  flow  field  obtained  from  the  Gosman  program  to 
provide  information  required  for  computing  ignition  energy 
and  primary-zone  performance. 


nnnoo  nonoon  n  c*  n  o  o  o  ooo  oo 


TABLE  XX.  LISTING  FOR  PROGRAM  NO.  1527 


PROGRAM  TNJECTI  (INPUT. OUTPUT.  TAPF.60  =  ‘NPUT,  TAPC6I*0U  IPUT.TAPt  I, 

I  TAPE2) 

PROGRAM  TO  CALCULATE  trajectories  FOR  SIMPLEX  OR  dual  ORIFICE 

INJECTORS  > 

CHARGES  AND  AOOITIONS  M»OE  3/2/71  TO  INTERFACE  5R  EVAP 
CHANGES  ANO  AOOITIONS  MAOE  7/28/71  FOR  GDSMAN  COMPATIBILITY 
CHANGES  REFLECT  Plans  FOR  This  ROUTINE  to  BECOME  Part  of  gosman 

OUTPUT  OF  ROUTINE  IS  LOCATION  OF  E«  . . .  FOR  EACH  OF  5 

oroplet  GROUPS  4 

COMMON  /  OUTPT  /  XIE(5»I0)»  X2E(5*IU>  * 

COMMON  /  KIMH  /  X I  ( 21 )  .X2  ( 2 1 )  »GI  U I  .<*1)  .  G2  ( 2 1  .21  >  •  MU  (21 .21 )  *  T  ( 21 , 

1  21).  IN.  JN,  R (21 )  .  FE VAP (21.21) 

C 

DIMENSION  ORO(I02.S).EVP(I02.5),TTF(I02,5) ,VEF (102,5) 

COMMON/  TABLES  /  Tl(7),VI5AIR(7).T2(2.*)' 5GFUEL (2,4) » T3( 12.4) . 

IVISFiJL(12.4)<NTA8 I »NrARP»NTAB3,NFUELS,OI A5M0 (5 .2)  .NDUSM 

2  .  TS ( 1 0)  .SMFTNSdO.A)  .nTABSS.NTAbST, SG TABS (4 > 

OIMENSION  FLORS(S) ,0ELPS(S) ,X( 102,5) .¥ (102.5) ,NNN(5) . 

IOIA(S) «LARELS(6) »  DUMDUM (A) 

DIMENSION  LAHELF (4) 

COMMON  /  TRAJ  /  vfuel.tfuelh. tfuelf.so.fmu.rhoful.ps.pt , T5»  TT, 

I  HriOAIR.AMU.G, VAIM5T »5Mf> 

COMMON  /  I VPUT  /  KFUEL.OEO.GAP.PPH.TITLEIB) 

COMMON  /  OEVAP/  OUMMY (20) .0(5) »TF (5) • VF (5) , VMEL (5) ,  RN(5>. 

1  C0(S)  .l)RAG(S)  ,FN(5)  .  CP (5)  ,0ELU(S>  .SG (S>  .FRHO  (5)  .DELTF  (5)  , 

2  TIM5.5) .FMA55 (S) .ALPHA (S) ,0ELV (5) ,E (5) ,DX.B ( 5) . VE5AVE (5) , TF5AVE (5 

3  ) .DSAVE (S) «E5»VE (S) .U5TART (S) ,SGSG60(5) ,SG&0 (5) ,DELM(5) 
A,OPfION.VAIRH,VAIRV,SlNT,C05T,0UMI,0l|M2 

5.  RST (5) »EM(5) 

DATA  LABELF/  IOHSHELLON  h  ,  HinJPS— JPB  .10HJET  A-l  .3HJPA/ 

DATA  KPLOT/0/ 

OATA  LAHEL5/  8H  0  -  20,*»m?3  -  40,  HH40  -  60,  BH60  -  BO, 

I  8HB0  -  100,  I  OH  /  VOLUME  / 

OIASMl)  15  TAHLE  o;-  OIA/SMO  (DHLS)  VALUES  FOR  I»  VIlHOUT  AIR  ASSIST 

2*  MI TH  air  ASSIST 

Ti,  visaio  is  table  of  temperature  cf)  vs. 

VI5C05IT  f  OF  AIR  (LR/5EC/FT) 

T2,  sgfuel  is  Table  of  temperature  (F)  vs. 

SPECIFIC  GRAVITY  (OMLS) 

FOR  4  FUELS—  SHELLUYNF  H.  JPS - JPB »  JET  A-I.  JP4 

tj.  visful  is  table  of  temperature  (Fj  vs. 

VISCOSITY  OF  FUEL  (CENTI5TOKES) 

FOR  *  FUELS  LISTEO  ABOVE 

DATA  OIASMO  /  .623,. 932. I. 18, I. 45, I. NO,  .623. .932* I . 18, 1 .45. 1.9o/ 

DATA  NT ABI,NTAB?.NTAH3.NEUEL5  /  /,2, 1 2,4  /.NDIA5M/5/ 

DATA  (VI (I).I»I,7)  /  40. . 540.. 1040. .IS40,. 2040. .2540. ,3040.  /»  > 

I<VIS4IR(I),I«I.7)  /  I.I7E-S,1.0u!;-B.2.50E-5.3.0IE-5,3.4BE-5.J.90E-  • 

25.4.29E-5  / 

OATA  T2  /24. .300. ,0., 220. ,36. ,260. ,55. ,200.  /, 

I  SGFUEL  /l. I, .97S..85,. 7625, .325,. 7375,. 775,. 7125  / 

OATA  T3  /'»5Q.,0.,40..60.,80..100.,I50.«200.<250>,300.,350.,400., 

1  -SO. ,0. ,40. ,60. ,80. ,100. ,125. ,150. ,175. ,200. ,225. ,250.,  i 

2  -50. ,0 . , 40. , 60. ,80. ,100. ,125., 150., 1 75. ,200. ,225. ,250. , 

3  -50. ,0. ,40. ,60. ,80. ,100. ,125. ,150. ,175. ,200, ,225. ,250./, 

4VJ SFUL  /3000..210., 55, ,32, ,20,, 16. ,6,5, 3,6, 2,1, l, 35, ,9, ,64, 

5  23. ,6. 2,3,25,2.5,2,, 1.65* I .35,1. 15,. 98, .84 ».75».67» 

6  19. ,5,4, 2,9, 2.3, 1,85, 1.55, 1,3, 1,08,, 92, , 5l , ,72, ,64, 
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TABLE  XX.  (CONTD) 


f  t  •"‘ft*  *69 i«6lt*5Si«49||44  / 

0*TA  IS  /  50. ,100. .ISO. ,200. .250. .300. .350. ,430. .450. .500.  / 
DATA  SGTARS  /  .72. . 76. .HO » .84  / 

DATA  nTAH6T.NTA85S.NT»BRF  /  10.4.7/ 

OATA  S«f T‘IS  /  21. .16. 2, 15. 5, 13. ,10. 6, A. 2, 5. 9, 3. 9, 2.0, .2, 

1  23.1.20.5- 1H. 0.15. 6. 13. 4, 11. 1,9. 0.7. 0.5. 1.3. 3. 

2  23. 9, 21. A. 19. 6. 17. 5, 15. 4, 13. 4, 11. 4, 9. 5. 7. 7.6., 

3  ?4. 9, 22. 9, 21. 0,19. 1,17. 3. 15. 5, 13.9,12. 1,10. 4. H. 8  / 

CALL  PLOTS  (0.0,0) 

C  INPUT  DATA 

1  BEAU  (60.1000)  TlTLt 
IF  (EOF (6o) )  999.2 

999  CALL  PLOT (0..0., 999) 

CALL  EXIT 

2  WRITE  (61.1010)  TITLE 

00  3  1*1 .500 

X(1)«0. 

3  Y ( I ) *u • 

XMAX*1". 

YMAX*10. 

XST*RT»0. 

YSTaRT«0. 

cccccc 

RE4U(  60,1 020  )N0R1F,KA19aS,FN1,FN2,  CONE  AN,  AREASH,r>0HFl,D0RF2 
IF (AOHIF.EO. 1) WRITE (61 .1021  IFNI, CONE AN, OORFl 
IF  UORIF  .E'1.7)  WRITE  <61 ,1  022)  FN1  .FN2.C0NEAN.00NF1.00HF2 
IF (AA IRAS, EO.l) WRITE (61. 1023) 

IF (KAIRAS.E0.2)  WR1TEI61.1024)  AREASH 
IF ( KOW  IF .NE.2)  SO  TO  4 
REA0I60, 10A0)  FLOWS 
WR1TE(61«1 OSO) FLOWS 
R£ AU (60.1040) 0ELP5 
WR1(E(61»10S1) OELPS 
*  CONTINUE 
CCCCCC 

RE  AO  (60,1041)  KFIIEL  ,  10PT ,  TFUEL.PPH.OELP.DELPSN.  TSM 
WRITE (61, 1 042) kfuel.iopt.tfuel.pph.oelp.oelpsh.tsh 
lFllOPT.NE.il  00  TO  6 

CCCCCC 

RE AU (60,1040) TAMS.VAIR.PS.XMAX.YMAX 
WRI TE ( bl , 1053)  TAMB.VA1R.PS 
GO  TO  7 

6  CONTINUE 

C  XSTaRT.  YSTART  ARE  INPUT  IN  INCHES 
CCCCCC 

RE AO (bO ,1 040) XST ART .YSTART .PS.XMAX. YHAX 
WRI  TE( 61  ,nS2)  XSTART, YSTART, PS.XMAX.YMAX 
XST ART*  XSTART  /  1?. 

YSTART*  YSTART  /  12. 

XMA»sXMAX/l2. 

YMAX*YMAX/J2. 

7  CONTINUE 
VAA  =  0. 

WAIR*  0. 

IF  (KaIRAS  .EO.  1)  00  TO  11 
PR*  (PS  ♦  OFLPSh)  /  PS 
FKA/s  5,  *  (PR**. 2857  -  1.) 

IF  (FHA2  ,GT.  1.)  FMA2*  1. 

TSA*  TSH  /  (1.  ♦  .2  *  FMA2) 

VAA*  49.02  *  SORT ( TSA  *  FHA2) 

RHOAIR*  2,6995  •  PS  /  TSA 
PRP*  (1.  ♦  .2  *  FMA2)  **3.5 
PSP*  (PS  •  UELPSH)  /  PRP 

WAIH*  AREASH  *  VAA  *  2.6995  *  PSP  /  TSA  /  144.  •  3600. 

WRITE  (61,2110)  WAIR.  VAA 
11  TFUELR*  TFUEL 


TABLE  XX.  (CONTD) 


TMItL«l»Ufcl.«»59.69 

C  SPECIFIC  GRAVITY  <0*LS)  FOR  FUEL 

SGF«TAB  ( TFUEL  *T2 ( I .KFUEL) .SGFUEL ( l.KFUEL) »NTAH2) 
SG60F*  Tam (60. •  T2<1. KFUEL).  SGEUeL ( 1 .KFUEL) ,NTA82> 
00  12  I«I,NTAB5S 

12  OUHUUMlDs  TAB  (  TEUEL»T5«SRFTNS  ( 1  ♦  1)  .NTAB5T) 

TAUs  T AB (5G60E «  SGTAB5. DUMDUM,  MTAB5S) 

C  OENSITY  OF  FUEL 

RMUF UL*  6?. *28  •  SGF 
C  VIStOSITY  OF  FUEL  (CENTJSTOKES) 

FMU*  TAB  ( TFUEL, T3< 1 , KFUEL) » V ISFUL ( 1 , KFUEL) *NTAB3) 
WHITE  (61 , ) 1*0) SGF ,FMU 

CONXs  COSiCDNEAN  /  57.26578  *  .5)  •  SORT (RMOFUL) 
SLM1«  3.359  *  FN1  /  00RF1  /  CONX 
SLM2>  0. 

IF  (KORIF  .NE.  1)  SLM2«  3.359  *  FN2  /  00RF2  /  CONX 
SLM«  SLM1  ♦  SLM2 
WRITE  (61,2100)  SLM1,  SLM2 
C  CONSTANTS  FOR  CALCULATIONS 

CONIs  .76*  /SGF 
CDN2«  PPh**.205 
CON3*  (FMt)  /  1. 5)**. 3 
CON*«  9266.  /  HHOFUL 

CCCCCC 

ELIMs  .96 
Sl«  .01 
S*S1/12. 

OX*  S 

CON9«  39.37E-6  /I2. 

C 

IN*2 

JN*2 

V AlMH ) *VA 1R 
VAIHVHO. 

TSl*TAMH 

VA1HH«VAIRH) 

VAIHV*VAIPV1 
TS«TS1 
xl  (I)«0. 

X?  ( l )  «o . 

X) ( IN) *XMAX/12 , 

X2(JN)«YMAX/12. 
lF(IOPT.EO.l)  GO  TO  9 
REWIND  1 

REALM  1 )  IN,  JN,  XI,  X2,  H 
READ  (1) 

READ  (1)  G1 
BEAU  (I)  62 
READ  (1)  RO 
READ  (1) 

READ  (I)  T 
REWIND  I 
REWIND  2 
DO  B  1*1, *»1 

8  FEYAP(I)«  o. 

9  CONTINUE 

C  CALCULATIONS  BEGIN  *•**•**• 

DELHI*  (PPH*  CONI/  FNl)**2 
IF  (KORIF  .EO.  U  GO  TO  5 
IF  (PELP1  .GE.  DELPS(l) )  GO  TO  20 
WRITE  (61,1070) 

KORIF  »1 
GO  ID  10 

5  IF  (DELP1  .NE.  0.)  GO  TO  10 
0ELR1«DELP 

PPM*  FN1*SQRT(0ELP1)/C0N1 


TABLE  XX.  (CONTD) 


V 


* 


« 


t 


+ 


I 


r 


Co N<*  pVh«»,205 
10  VP ‘•L*  SORT (CRN*  •  OELP) ) 

IF  iKAlRAS  .EO.  21  GO  TO  16 
SHO>22b.  •  COM2  •  COM3  /  DELP1**.35* 

GO  TO  19 

1$  omk*  M*m  /  ppm 

VR*  VFUEL  /  VAA 

VEP*  .*38  •  OMR  •*. I  •  VAA  *  SORT (.5  ♦  VR  *«2  -  VR) 

S*4U*  196.  •  SORT  (TAU  •  SLR  /  RHOAIR)  •  FMU  ••.095  /  V£P 

19  OELPEO*  OELPI 
0ELP2«0. 

0£LPvn*u. 

PPMlapPH 

PPH2*0. 

GO  10  90 

20  KROSSaO 
KOUMTaO 

00  70  Jal.S 

OELPVN*  OEUPSCI) 

30  PPM2*  TAB  ( OELPVN, OELPS.FLOYS .5) 

OELP2a  (PPM2  •  CONI/  FN?)**2 

PPhla  PPM-  PPM2 

OELPI a  CPPhI  *  CONI/  FN]I«*2 

OELPVGa  0ELP1-0ELP2 

ERHGRNa  OELPVN-  OELPVG 

IF  lABS(ERPOHN)  ,LE.  .1)  GO  TO  80 

IF  (I  .EO.  1)  GO  TO  60 

IF  (ERRORN  •  ERRORO  .LT.  0.1  GO  TO  *0 

IF  CKHOSS  .EO.  01  GO  TO  60 

DELPVOa  OELPVN 

ERRORO*  ERRORn 

GO  fO  50 

*0  IF  (KHOSS  .NE.  0>  GO  TO  SO 
C  ROOl  IS  BETWEEN  OELPS(I-l)  ANO  OELPSd) 

KRUSSa] 

OEL1A*  OEI.PVN-  OELPVO 
50  OELfAa  OEL1A  *  .5 

OELPVN*  OELPVO  ♦  OELTA 
KOUNT*  KOUNT  *1 
IF  (KOUNT  .LT.  50)  GO  TO  30 
WRITE  (61,1080)  OELPVO. OELPVN 
CALL  EXIT 
60  ERRORO*  ERRORN 
OELPVO*  OELPVN 
70  CONTINUE 

WRITE  (61,1090) 

CALL  EXIT 
C  CONVERGENCE 

80  OELPEO"  (0ELP1*PPH1  ♦  OELP2  •  PPH2  )  /  PPM 
VFUEL"  SORT (CON*  •  OELPFU) 

IF  (KAIRAS  .EO.  ?)  GO  TO  8* 

SMU*  330.  *  C0N2  •  (fmU  /  1 .5) *»«3  /  OELPEO**. 35* 

GO  10  90 

8*  0"H*  WAIR  /  PPM 

VRa  VFUEL  /  VAA 

VEP»  .*38  *  OMR  **.I  •  VAA  •  SORT ( .5  ♦  VR  **2  -  VH) 

SMU*  196.  •  SORT (TAU  •  SLM  /  RHOAIR)  •  FMU  **.095  /  V£P 

90  CONTINUE 

C  NOTE—  COORO.  SYSTEM  OF  EVAP  IS  HORIZ.  ♦  TO  RIGHT,  VERTICAL  ♦  TO 
C  BOTTOM.  THETa  IS  MEASUREO  FROM  ♦  HORIZ.  TOWARDS  ♦  VERTICAL 

THETAIa-CONEAN  /57. 29578  *.5 
SlNTlaSIN(THETAl) 

cost:*cos(thetad 

OPTION*  1. 

IF(I0PT.EO.2)CALL  AIRPRP(XSTART,YSTaRT,VAIRH1,VAIRV1,TS1) 

MAXKaO 
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-wi'rrr6T.'rn'OT_TO.vi-,'Pwr,-o£L>'r.»,PRr.nEL»'VN,vFOEiv5HD 
WRITE  (6I«?I20)  OMR*  V£P 
00  ISO  In. 5 
C  01*  IS  IN  dCRONS 

oi*(it«  oi*SMO(i«K*m*S)  •  smo 
C  0  IS  IN  FEET 

0(1)*  0I*(1)  •  CON? 

E ( I)*  0. 

Ew ( I ) *  0. 

W(I)*  0(1) ••3*RM0FUL^3. 1*159265  /  A.  /  1.5 
WST(I)*  M { I ) 

VF ( I) *  VFUEL 
TF(I)*  TFDELR 
INTER*  1 
KKK*l 

C  **  THETA*  THET*I 
SINT*  SINT1 
COST*  COST  1 
Xllillt  XST »RT 
Y(I«D*  YST»RT 
Kl*  0 
EWl*  EM ( I ) 

IF  ( I  OPT  ,E0.  2)  CALL  FEVAPC  ( XST*R f , YSTART.KI *E«I .EW ( I ) ) 

CCCCCC 

ORUI I . I) *0( I ) /C0N9 
EYP(I.I)al). 

TTF(1,I)*TFU£LR 

VEF(I.I)*VFOEL 

CCCCCC 

VA lNNs  VAIRHl 
VAlNVs  vairvi 
TS*  TS1 
K0YER«1 
KOUNT*  2 
XOLOr  XST  ART 
YOLU*  YSTAHT 
KOLO*  I 

100  IF  (KOLO  .LT.  6)  GO  TO  IOI 
KOLO*  1 

KOUNT*  KOUNT  *1 

IF  (KOUNT  .GT.  100)  GO  TO  110 

CCCCCC 

101  IF  (E(I)  .LT.  ELIM)  CALL  EVAP  (INTER. I) 

IF  (INTER  .LT.  0)  GO  TO  120 

INTER*  ? 

C  X.  Y  IN  FEET 

XIKOUNT.il*  XOLO  *S  •  COST 
Y(KOUNT.I)*  YOLO  -S  •  SINT 
W(I>*  WII)  -  OtLM(I) 

EWU)*  ).  -  WII)  /  WST  ( I ) 

IF  ( IOPT  ,EQ.  2) 

1CALL  FEVAPC  (X (KOUNT . I ) .  Y(KOUNT.I).  Kl.  EWl.EW(I)) 
CCCCCC 

DRU ( KOUNT . I ) *0 ( I ) /C0N9 
EVP (KOUNT . I ) *E( I ) *100. 

IF  (E  ( I )  .LT •  .001 )  EVP(KOUNT.U*0. 

TTF (KOUNT , I ) *TF ( I ) 

VEF (KOUNT  » I ) *VF ( I ) 

CCCCCC 

C  CHECK  IF  THIS  INTERVAL  CROSSED  EVAP.  STORE  POINT 
K*  KKK 

CCCCCC 

00  GOO  L«K.10 
KKK*  L 

EP*  FLOAT'D  *  .1 
IF  (L  .EQ,  10)  EP*  .95 
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if  <ESAveri»  \st.  pr'.w.~E<ii  .n.TPf'ao  to  6io 

c  INTERPOLATE  FOR  <X1»X2)  IN  FEET 

OUM®  o. 

TEMP*  lid  -  ESAVE ( I ) 

IF  (TEMP  .ME.  0.)  OUM*  (EP  -  ESAVe<|»  »  /  TEMP 
XlE<I«L>*  XOLO  ♦  OUM  •  (XUOUNT.D  -  XOLO  > 

X2E ( I «L) *  YOLO  ♦  OUM  •  (Y(KOUNT.I)  -  YOLO  ) 

XINCH«X1e<I.LI»12. 

YINCh*X2E ( I «L) *12. 

600  WHIIE(61,2010>  I.EP.XINrH.YINCH 
00  TO  120 

C  CHECK  IF  HAVE  HIT  A  BNORY 

610  IF  (X(KOUNT.I)  . GE.  XI (1)  I  GO  TO  620 
OUM*  OHLEFT 
GO  TO  650 

620  IF  (X(kOUNT.I)  .LE.  XI (IN))  GO  TO  630 
OUM*  SHHIGHT 
GO  TO  650 

630  IF  (Y (KOUNT. I)  .GE.  X2 ( 1 I  1  GO  TO  640 
OUM*  NHbOTTOM 
GO  TO  650 

6*0  IF  (Y(KOUNT.I)  .LE.  X2(JN)I  GO  TO  105 
OUM*  3HTOP 

650  WRITE  (61.2000)  I. OUM 
655  00  060  L*  KKK.10 

XIE(I.L)*  X (KOUNT . I ) 

660  X2E(I.L>*  Y(KOUNT.I) 

GO  TO  120 

luS  IF  (INTER  .LT.  0)  GO  TO  655 
C  ••  THETA*  ATAN2(OUMl.OUM2) 

SINT*  OUM)  /  VF  < I ) 

COST*  OUM?  /  VF ( I ) 

XOLO*  L (KOUNT • I ) 

YOLU*  Y (KOUNT. I) 

KOLO*  KOLO  ♦  1 

IF(I0PT.EQ.2)CALL  A1RPRP(X(K0UNT.I).V(K0UNT,I) .VAIRM.VAIRV.rS) 
GO  TO  100 

110  KOVtR*KCVER.l 

IF  (KOVER  .LT.  10)  GO  TO  111 
WHITE  (61,1100)  I 
KOUNT*  KOUNT* 1 
GO  TO  655 

C  COMPRESS  100  PTS  INTO  50  ANO  CONTINUE 

111  00  112  Js*. 100.2 
K*J/2 

CCCCCC 

OHO (K. I ) *OHO ( J* I ) 

EVP (K. I ) *E VP( J. I ) 

TTF (K.I ) *TTF (J.I ) 

VEF(K.I)*VEF(J.I) 

CCCCCC 

X(K.I)*X(J,I) 

112  Y(K.T)*Y(J,I) 

KOUNT *5 1 

GO  TO  100 

118  WRITE  161,1170)  I 
120  NNN ( I ) *  KOUNT 

IF  (MaXk  .LT.  KOUNT)  MAXK«KOUNT 
Kl*  -1 

IF  ( IOPT  .EQ.  2) 

1CALL  FEVAPC  (X (KOUNT » I ) , Y (KOUNT .I).Kl.EWl.EW(D) 

150  CONTINUE 

IF  (IOPT  ,E0.  1)  GO  TO  151 

WRITE  (61.1200)  FEVAP  « 

WRITE  (2)  FEVAP 
REWINO  2 
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151  *«HE  (fcf.UKO)  ( I »  TF ( I ! » VF ( 1 ) ,0 (I )  ,e'(I)  .  I*i«5> 

MR1IE  (el. 11201  (LABELS! 1) .LABELS (61 »I*l»5)*(OIA(I) ,1*1.5) 

00  158  1*1.5 
N*  NNN( U  «  1 

IF  (N  .AT.  MAXK)  GO  TO  158 
00  -56  J*N.MAXK 
OROU.II*  n. 

TTF(J.l)*  0. 

VEEU.I1*  0. 

EVP  U» II*  n. 

X( J.I) *0. 

156  YIJ.T1*  0. 

158  CONTINUE 

00  160  Jsl.NAXK 

C  CONVERT  TO  INCHES  FOR  PLOTTING  ANO  PRINTING 

00  169  1*1.5 
XU. II*  X(J. II  •  12. 

169  V  ( J.I  |  *  YU, II  *  12. 

CCCCCC 

VRIiE (61. 11301  (X ( J.I | ,V(J, II .1*1.51 .(OROU.II .TTF (J.I) »VEF( J.I). 
•  EVP(J.I)  ,1*1,5) 

160  CONTINUE 
C  PLOfTING 

CALL  PLOT (1.0.1. t~3l 

CCCCCC 

0*1. 


CCCCCC 

,r (YMAX.GT.l.l.OM.XMAX.GT.l.A)  0*2 
IFIYMAX.GT.2.1 .CR.XMAX.GT.2.8)  0*4 
IF ( YMAX .GT.4. 1 .OR.XMAX.GT.5.8)  0*8 
IF :YNAX.GT. 8.1. OR. XHAX.fiT.il. 5)  0*16 

CCCCCC 

XL*  1.50«0 

YL*1.25*0 

0ELX»XL/12. 

UELY*YL/10. 

CALL  AX(SC'.,0.,1HX,-1 ,12. ,0. ,0. ,OELX 1 
CALL  AXIS  (O..O.,lHY,l,lO.,90.,O..OELY> 
CCCCCC  • 

Y|.*8.5 

00  180  1*1.5 
NsNNN(I) 

X (N*l ,11*1. 

Y(N*1,I)*1. 

X(N.?,I1=0ELX 


Y (n*2. 1 1 *OELY 

CALL  LINE  (X (1,11 ,Y(1 .1) ,N. 1,10.1) 

CCCCCC 

XL«4.5 

CALL  SYMBOL  (XL.YL..10.I.0..-1) 

XL«M.*  .? 

CALL  SYMBOL  (XL. YL, . 10, LABELS (1 1 , 0 . .8) 
XL*XL*.«0 

CALL  SYMBOL  (XL.YL.. 10.46, 0..-1)  - 

XL**L*.2 

CALL  SYMBOL  (XL.YL,.10,6HVOLUME,0.,6) 

CCCCCC 

XL*XL» 1 . 

CALL  NUMMER(XL«YL«.1*0IA(I) «0.«2) 
XL*XL*.8 

CALL  SYMBOL (XL.YL. . 1 .7HMICRONS.O, ,7) 

CCCCCC 

YL*YL».2 
180  CONTINUE 

CALL  PLOT  (0.»-.5»-3) 

CALL  SYMBOL  (. a. 10. 5. ,20. TITLE. 0., 80) 


k 


« 


0 


A 
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c*u  svhmc  <  1 . , i o. . .  io.2Hin jccTOflnr^rjcCTOfl iErT(T.v?fr 

IF  (KORIF  .EU.  2)  GO  TO  190 

CALL  SYMBOL  !.5.9.8,.10,7HSIMPLEX  ,0.,7> 

GO  TO  ?00 

190  CALL  SYMBOL  («5.9.8t.l0< 12H0UAL  ORIFICE  * 0 . *  1 2 ) 

200  if  (ka Iras  .eq.  d  go  to  210 

CALL  SYMBOL  (2.5,9 .8..10.  4HWI  TH  *0  ,  *  A ) 

GO  TO  220 

210  CALL  SYMBOL  (2.5.9.G,.10.7HWITMOUT,0.,7) 

220  Call  SYMBOL  (3.2t9.fl,.10'10HAlR  ASSIST  ,0ttl0> 

CALL  SYMBOL  (.3,9.6, .10.11HCOWE  angle*  *0..11) 

CALL  NUMBER  (l.T.V.tot.lOtCONEAN.O.tl) 

CALL  SYMBOL  (#5,9.4,, 10.5MFUEL*  *0..5) 

CALL  SYMBOL  (1«1,9«4,.10,LA3ELF (KFUEL) , 0, t 10) 

CALL  SYMBOL  (2.5,9.4,.10.7HFUEL  T»  ,9. ,7) 

CALL  NUMBER  (3.2.9.4,,10,TFUELR.O.,1> 

cccccc 

CALL  SYMBOL ( • 5,9. 2. • 1 , 4HSM0* ,  0  •  .  4) 

CALL  NUMBERd.Ot9.2t.ltSMOfO.t2) 

CALL  SYMBOLd.8t9.2tdt7MMlCH0NSi0.t7) 

CCCCCC 

CALL  SYMBOL  (.S.B.St. 10.23HFLOW  NUMBER  PPM  DELTA  P  t0.t2§) 
CALu  NUMBER  (.5tB.b5t.10tFNlt0.tS) 

CALL  NUMBER  d.7.8.b<t.)0tPPHlt0.t2) 

CALL  NUMBER  (2.3.8.65 • . 1 0 .DEL  '1 .0 . .2) 

IF  (KOHIF  .EU.  1)  GO  TO  230 
CALL  NUMBER  (.5.8.5t.l0tFN2t0.t5) 

CALL  NUMBER  ( 1 .7.8,5. . 10.PPM2.0 ,.2) 

CALL  NUMBER  (2.3tB.5t.10tOELP2,0.t2) 

CALL  SYMBOL  (.5t8.3t.10. 12 HE*. OR  01V10ER  ,0.,12) 

CALL  SYMBOL  (l..B.15t.l0tl4MCRACK  OELTA  P«  ,0..14) 

CALL  NUMBER  (2.4.8.15. .10 tOELPSI 1 ) ,0 • «2> 

CALL  SYMBOL  (1..8.0..10.14HVALVE  OELTA  P«  ,0,,14) 

CALL  NUMBER  (2.4.8.0..10.0ELPVN.0..2) 

230  IF  UPLOT  .EO.  0)  GO  TO  240  1 
KPLOTaO 

CCCCCC 

CALL  PL0TU6..-12.5.-3) 

GO  TO  1 
240  KPLOTil 
CCCCCC 

CALL  PL0T(-l.til.S»-3) 

GO  10  1 

1000  FORMAT  (BAIO) 

1010  FORMAT  (lhl.BAln  /) 

1020  FORM*! (215. 6F 10.0) 

1021  format (ix. 3 2ms implex  atomizer,  flow  NUMBER  ■  .FIo.S.IAH  CONE  angl 
IE*  F10. 5. I  OR  ORIF  01 A*  F6.3) 

1022  FORMAT (ix, 38HOU4L  ORIFICE  ATOMIZER.  PRIM  FLOW  NO  ■  .F10.5.15H  SEC 

♦FLO*  NO  ■  F 1 0  «5t  1  4h  CONE  ANGLE  -■  FI0.5  /  15H  PRIM  ORIF  OIA» 

2  F to. 3. 1 4H  SEC  ORIF  0IA«  F6.3) 

1023  FORMAT  ( l X  ,  l 8HW 1 THOUT  AIR  ASSIST  ) 

1024  FORMAT (iX.jgMRITH  AIR  ASSIST,  SHROUO  AREA  ■  .F10.5.6H  SO  IN  ) 

1040  F0HM4T  (8F10.0) 

1041  FORM 4 T (2I5.5F10.0) 

1042  FORMAT  (2X.39RKFUEI.  IOPT  TFUEL  PPM  OELP  OEUPSH  TSH  ■  .2l5.5FlO.51 

1050  FORMAT (IX. 17HSEC  FLOW  ScHEO  ■  .5F10.5) 

1051  FORMAT (IX.) TmSEC  PRES  SCHEO  ■  .5F10.5) 

1052  F0RMAT(1X.62HARB1TRARY  FLOW  OPTION.  X  START.  Y  START.  P  GAS.  A  MAX 
♦t  Y  MAX  *  . 5F10.5) 

1053  FORMAT ( ) X.43HUNIF0RM  FLOW  OPTION,  T  AW0,  VAIRt  P  AMS  ■  ,3F10.5) 
1070  FORMAT  (43ROOUAL  ORIFICE  IS  ACTING  AS  SIMPLEX  ATOMISER  ) 

1080  FORMAT  (22M050ITERAT10NS,  OELPVOw  E12.4,5X,  7HOELPVN*  E12.4) 

1090  FORMAT  (30R0NO  SOLUTION  WITHIN  VALVE  TABLE  VALUES  ) 

1100  FORMAT  (42mOI TERATION  REACMEO  MAX,  OF  500  FOR  OROPLET  ,15, 

121H,  CALCULATION  STOPPEO  ) 
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mo  F'j«M*H/nfraoEinrp  mv~ ;fio~.2.  5>r,  8HPPH  i'ir«noTT'  r 

1  13m  0ELTA  P  (2)«  *F10.2*  5X»  8HPPH  (2)»  .F10.2  / 

2  13H  OELT*  P  (V)»  ,F10.c,7X,6HVFUEL*  FlO.2/ 

3  6h  SmO*  .F10.2) 

CCCCCC 

1120  FORMAT (lHn.5X,A8,Alu.4(«A,Afl,  A 101/ 

♦  1H0.10A,F«.J.4(18X,FR,3> ,  1 X, 7HMICRONS  / 

♦  1HO .6X, lHXt 10X» IhY .4  1 14  X  , lHXt 10X» IhY) / 

♦  2A.5(5X.1HO,4X,2HTF,3x.2HVF,2X,5HEMOO»2H  /)//) 

CCCCCC 

1130  F0HM4T(2X,5(  FI 0. 2, FI  1 .2.5X) /2X, 5< 3X.F5. 0,F6. 0.F5. 0 ,F5.0 ,2H  /  )) 
1140  FORMAT  UHOSG*  E12.4.7H  (OMLS)  .AX.IDHVISC  FUEL*  E12.4.12H  CEnTI 
1ST0KES  ) 

1170  FORMAT  <8H  0»OPLET  ,  1 3, 1SH  HAS  EVAPORATED  ) 

1180  FORMAT  (2SH0LAST  DROPLET  CONDITIONS—  / 

1  6X.4H0ROP.5X.2HTF  * 13X  «2HVF  .14X.1H0.14X.1HL  / 

2  S  (5X.IS.4E15.5  /)  /) 

1200  FORMAT  (7H0FEVAP*  /  2U1H0.7E12.*  /  2 ( IX. 7E12.4/)  )  ) 

2000  FORMAT  ( 1 3H0****  OROPLET  .13.  9H  HAS  HIT  .A7.  8HB0UN0ARY  ) 

2010  FORMAT  (SHOOROPLET  .I3.3H  E*  F4.2.5X.8H  XI.  X2«  2F9.5.3H  IN) 
2100  FORMAT  126H0FUEL  SHEET  THICK.,  PRIM  *  F9.1.7H,  SEC  «  F9.1, 

’  3H  MICRONS  ) 

21  it  FORMAT  J17H0ASSIST  AIP  FLOP*  F8.3,  6H  LB/HR,  10H  VELOCITY* 

1  F7.1.4H  FPS) 

2120  FORMAT  ( 21  HO A I H/FUEL  MASS  RATIO*  F12.3.19H  EFF.  AIR  VELOCITY* 

1  F10.1) 

end 

subroutine  FEVAPC  IX  ,  Y  ,  Kl,  EV1.  EW) 

COMMON  /  KIMH  /  Xl(21),x2(21),Gl(21, 21). 02(21,21), R0(21, 21), TI21, 

1  21).  IN.  JN.  R (21) «  FEVAP (21.21) 

COMMON  /  INPUT/  KFUEL.  OEQ.  GAP,  PPH 
C  CALC.  ANO  STORE  FUEL  EVAPORATION  RATE  FOR  GOSMAN  PROGRAM 
C 

IF  (Kl  .LT.  0)  GO  TO  SO 
C  OETERmInE  »HICH  ELEMENT  VOLUME 
JNl*  JN  -  1 
00  10  JJ*  2, JNl 
SI*  (X?(JJ)  ♦  X?(JJ-)>)  *  .5 
S2*  (X2( JJ)  ♦  X2( JJ*l) )  *  .5 
IF  (  y  .LT.  Si  .OR.  Y  .GE.  S2)  GO  TO  10 
J*  JJ 
GO  TO  20 
10  CONTINUE 
GO  10  4(1 
20  INI*  (N  -  1 

00  30  II*  2, INI 
S)*  (XI  (ID  ♦  XKII-l))  «  .5 
S2*  (XI ( 1 1 )  ♦  XI ( 1 1 « 1 ) )  «  .5 
IF  (X  .LT.  S)  .OR.  X  ,GF.  S2)  GO  TO  30 
I*  11 
GO  TO  ) 00 
30  CONTINUE 
C  NOT  IN  A  VOLUME 

40  IF  (K)  ,E0.  0)  RETUHN 
IF  (iSAVE  .EQ.  0)  RETURN 
I*  0 

C  C»LC.  FFV4PU.J)  FOR  ISAVE.  JSAVE 
50  IF  (ISAVE  .ER.  0  )  RETURN 

VOL*  (XI ( ISAVE* 1 )  -  Xl(ISAVE-D)  •  ( X2 ( JSAVE* 1 ) -X2( JSAVE-1) )  •  .25 
1  *  H  (JSAVE) 

IF  (R (JSAVE)  .NE.  1.  .OR.  P(JSAVE»1)  ,NE •  1.)  VOL*  VOL  •  6.28318 
OEws  EW  -  EW 1 

FLVAP1ISAVE, JSAVE)*  FEVAP ( ISAVE, JSAVE)  ♦  OEW  •  PPH  /  16000.  /  VOL 
EWl*  EW 

IF  (I  .NE.  0)  GO  TO  60 
ISAVE*  0 
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Kl«  o 
return 

60  ISAVE*  1 
Jr.*VE»  J 
70  HE  TURN 

ICO  IE  (K1  .NE.  0)  GO  TO  110 
Kl«  1 
60  TO  60 

110  IE  (I  .EO.  ISAVE  .AND,  J  .EO.  JSAVE)  60  TO  70 
GO  10  50 
END 

SUBROUTINE  AJHPRP  ( X , Y . VA1RM* V A IRV , TS) 

COMMON  /  KIMH  /  Xl(21),x2(21),Gl(2l,21),G2(2l,21),HU(21,2l),T(21* 

1  ?1).  IN  ,  JN 

C  note—  COOHU.  system  OE  EVAP  IS  H0H12.  ♦  TO  RI6MT,  VERTICAL  ♦  TO 
C  BOTTOM 

00  10  J*1,JN 
!=J 

IF  (X2( J)  -  Y)  10.70,20 
10  CONI INUE 
20  IE  (1  .EO.  1)  1*2 
KKK*1 

*0  T1  *  TABIX.X1.T  (1,1), IN) 

Gil*  TAB(X.X1,G111»1>.10 
G2)*  TAB ( X.X1 ,G2 (1,1) ,1NJ 
HOI*  TABIX.XI.ROI 1,1) .IN) 

IE  ( KKK1  60, BO, SO 
SO  J*1 

1*  1  -  1 
RKK*  -1 
T2»  T) 

G12*  611 
G??»  G21 
H02*  HOI 
GO  10  AO 

60  OEL*  (Y  -  X2(l)  )  /  (X2(J)  -  X2(l)) 

TS  =  T 1  ♦  ( T2  -  T1  )  •  OEL 

DUM  «  R01  »  (R02  -  HOI)  •  OEL 

VA1HM*  (Gil  ♦  (G12  -  Gil)  •  OEL  )  /  DUM 

VA1HV*  -  (G21  ♦  (G22  -  G21)  *  OEL  )  /  DUM 

65  HE1URN 
70  KKK*0 
GO  TO  AO 
60  TS*  T 1 

VA1HH*  Gil  /  HOI 
VA1HV*  -  62 1  /  HOI 
GO  TO  65 
END 

FUNCTION  TAB  ( X.XX, YY.NTAB) 

OlMtNSlON  XX(l),  YY ( 1 ) 

E*l. 

IF  (XXII ) .GT.XXI2) )  E*-E 

00  10  J=1,NTAB 

1*J 

IE  (E»(XX(1)-X)1  10, AO, ?0 
10  CONTI NUF 

20  IE  (I.NE.l)  GO  TO  30 
1=2 

30  J*l-1 

DEL«XX(1)-XX( J) 

IE  (OEL.EO.O.)  GO  TO  SO 

TAB* ( YY ( I) • ( X“XX ( J) )“YY(J)*(X“XX<1))) /DEL 
RETURN 
AO  TAB«YY(I) 

return 

50  WRITE (61 *60)  XtltJ 


TABLE  XX.  (CONTD) 


cm  t*  1 1 

60  FORMAT  (24H0«»»ERR0N  IN  ROUTINE  Tab.EIS.4.2I5> 

END 

subroutine  evap  (Inter. i) 

C  DROPLET  EVAPORATION. 

C  PROGRAMMED  I-22-7I  BY  M.  TaNI. 

c 

ccccc  this  routine  is  the  same  as  in  program  impact  except  i 

C  FOR  THF  CaRO  change  mamkeo  csss 

c 

c  o.tf.vf.e  are  input  for  drop  no.  i 

C*#*#  NOlE—  FUEL  PROPERTY  EQUATIONS  a«E  ONLY  FOR  JP4  ANO  JP5/JPB  ••• 

c 

COMMON  /  INPUT  /  KFUEL.OEO. GAP, PPH. TITLE (8)  , 

COMMON  /  OEVAP/  OUMMV(20) ,0(5) ,TF(S) .VF(S) *VREL<5> •  RN(5). 

1  C0(5).0RAG(5).FN(5).  CPIS) .OeLQIS) ,SG(5) ,FHM0(5) .DELTFI5) , 

2  TIMS  (5)  .FMASS  (5)  .ALPHA (5)  ,DELV(5)  ,E  (5)  «OX«V(S)  . VFSAVE  (5)  . TFSAVE (5 

3  ) »USAVE (S) .ESAVE (5) .OSTART (5) .SGSG60IS) .SG60I5) «0ELM(5> 
A.0P1I0N»VAIRH.VaIRV.SINT.C0ST.0UM|,0UM2 

common  /  TRAJ  /  VFUtL. TFUEL.TFUELF.SGF.FMU.RHOF.ps. PI. ts.tt, 

IDUMMZOO)  •  VAIR 

DIMtNSlON  TaIRTR(T) .AIRKTH(T) .AIRMUT(7) »AIRCPT(7) 
data  1A1RTR  /  400. .600. .1000. .1500. .2000.. 2500. .3000.  / 

1.  A1HKTB  /  .0114. .0165. .0252 . .0344. .0422.. 0486. • 05 AT  > 

2. A1RMOT  /I ,E-5. I .3E«5i 1 .88SE-5.2.5E-5.3.0I 5E“5,3.48E“5,3«9E“5  / 

3.  AIRCPT  /. 2404, .2409. .244. .2642,. 2772.. 2868, .2931  /.NTABAR/7/ 

OATA  G. GAMMA. R.PI04.G0GMI .GMI02.PI  /32. 1 74. 1 .4. 1545. 327. .7853902. 

1  3.5..?.  3.1415927  / 

C 

AIKmb  20.966 

CONSTI*  G  •  GAMMA  •  R  *  TS  /  AIRM 
C  CHECK  FOR  FIRST  ENTRY  TO  ROUTINE  (INTER*!) 

if  (Inter  .ne.  d  go  to  so 
C  estimate  NEXT  STATION  conditions 

VF2*  VF ( 1 ) 

TF2*  TF ( I ) 

D2*  D ( I ) 

E?»  E(I) 

OSTaRT(I)*  0(1) 

GO  TO  Rb 

C  ESTIMATE  NEXT  STATION  CONDITIONS 

50  VF2»  2.  •  VF ( I )  -  VFSAVE(I) 

TF2*  2.  •  1 F  ( I )  -  TFSAVE(I) 

02*  2.  •  0(1)  -  OSAVt(I) 

IF  (02  .LT.  I.E-IO)  U2«  l.E-10 
E2*  2.  •  Ed)  -  E5AVHI) 

IF  (E?  .GT.  .99)  E2*  99 

IF  (E2  .LT.  0.)  E2*  0. 

C  INITIALIZE  FOR  ITERATION  ON  0 

55  KOUNTC*  1 

SGMESO*  SGRFCT  (Ed)) 

SG d ) *  SGFCT  (TF(I) .SGRFSD) 

SGbOdl*  SGFCT  (519.69.SGRES0) 

IF  (INTER  .EU.  I)  SGSG60I I)»  SG(I)  /  SG60II)  t 

V '  I )  *  PI  /  6.  •  Od»**3  *  SG<I)  *  62.428  * 

DELUG*  02  -  0(1) 

KOUNTO*0 
60  KOUNTH*  l 

OZ»  (0(1)  ♦  02)  •  .5 

CIHCUM*  PI  •  DZ  » 

TEMPA*  Pio*  •  0Z**2  s 

TEMPO*  TEMPA  •  DZ  /  1.5 
C  INITIALIZE  FOR  ITERATION  ON  TF 
OEL1FG*  TF2  -  TFd) 

EZ*  (E(I)  ♦  E2 )  *  .5 
VAP.M*  VAPMF  (EZ) 
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SGRtSO* 'SGRFCT' (EZ> 

C  AVERAGE  TERPERA^URES.  CALC.  PROPERTIES 

TO  T FZ«  dF(I>  *  TF2)  •  .5 
TM*«  < IS  «  TFZ)  *  .5 
PAS*  PASF(TFZ.EZ) 

IF  (PAS  .LT.  PS-.OI)  GO  TO  *0 
C  AT  BOILING  POINT. 

PAS*  PS  -  .01 
KOUNTO*! 

*  CO  VAPK*  VAPKF(TMX.VAPM) 

VAPmG*  vaphuf (  TPX) 

VAPLAM*  WAPLNflTr'Z) 

CP<I>*  CPFCT1 TFZ.SGRESO) 

VAPC P*  VAPCPF(TRX) 

SGin*  SGFCTITFZ.SORESO) 
t  FRHO(I)*  SG( I )  •  6?. *28 

VAPO*  VAPOF(TKXiPS) 

IF  (VAPO  ,LT.  .00005)  VAPO*  .00005 
ALP*  PS  /  Pas  *  ALOGtPS  /  (PS  -  PAS)  ) 

C  AIR  PROPERTIES 

A IRK*TAH ( TRX  «  TA IRTH , AIRKTR,NT  AR AP) 

A  IRMU*TAH ( THX.Ta IRTU, AIRRUT  iHTaBA.T) 

AIRCPsTAR ( TMX.TaIHTB, AIRCPTtNYABAM 
C  OIFFUSION  ZONE  PROPERTIES 

QK*  P«S  /PS  *  .5 

OJ*  1 .  -  OK 

QKrtX*  OJ  *  AIRK  ♦  OK  •  VAPK 
UMUHX*  QJ  •  AIHMU  ♦  OK  *  VAPMU 
UMHXs  QJ  *  A I RM  ♦  OK  •  V APR 

OCPnX*  (Q.j  *  a  I  HR  •  AIRCP  ♦  QK  •  /APR  •  VAPCP)  /  QHHX 

QRMORX*  PS  *  ORRX  *  1*4.  /  R  /  TRX 

SC*  ORUMX  /  VAPO  /  URHORX 

PR*  OCPRX  •  ORUMX  /  OKMX  •  3600. 

TERPE*  OZ  •  QRMORX  /  OMURX 
GRASS*  TEMPO  •  SGI  I)  •  62.428 
TERPF*  .6  *  SC*«. 333333.1333 

CCCCCC 

TEHPG«CIRCUM*VaP0*VAPR«PAS*ALP/R/TRX4144. 

TERPH*  .6  *  PR**. 3333333333 

TF.MPI*  VAPCP  /  CIRCUR  /  QKHX 

TEMPJ*  CIRCOR  *  OKRA  •  (IS  -  TFZ)  /  3600. 

TERPK  «  TERPU  •  SG( I )  *  CP(I)  •  62.428 
C  INITIALIZE  FOR  ITERATION  ON  VF 
OELVG*  VF2  -  VF ( I ) 

KOURTA*  1 

C  CALCULATE  DELTA  V  FOR  OROP 
100  VFZ*  (VMI)  t  VF2)  *  .5 

IF  (OPTION  .EO.  0.)  GO  TO  1  IS 
VRV*  VFZ  *  SINT  -  V A IRV 

VRH*  VFZ  •  COST  -  VAIRH 

VRELdl*  SORT  ( VRV*»2  •  VRH*«2) 

SPMl*  VRV  /  VREL<I> 

CPH1*  Vrm  /  VRfL'I) 

VSIUN*  1. 

GO  TO  120 

*  115  VRELdl*  VAIR  -  VFZ 

VSILN*  1. 

IF  (VRELdl  .GE.  0.)  GO  TO  120 
VREL(I)»  -  VHEL ( I ) 

VSIGU*  -VSIGN 
120  RN (I ) «  VREL(I)  *  TERPE 

*  CCCCCC 

*  CCCCC  COd>«  18.5  /RNd)**.6 

CCCCC  CO(D*  24.  /  RNd)  ♦  4.667*887  »  RN  ( I )  •  (-.33660937  ♦  RNd )  *  { 
CCCCCi  3.266239E-3  -  2.933821E-6  *  RN(I>  )) 

IF  (RNd)  .GE.  10.)  COd)*  24.  /  RN(I>  *  3,09  /  RN(I>  **.31* 
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i r  ( wn ( i r'rrnno. >  ci> < rn -zvrrwm rv  3.54  / 

IF  (WN(I)  .LE.  .5)  CO  ( I)  *  24.  /  RN(I>  •  (1.  ♦  .1875  *  RN ( I >  ) 
IF  (COd)  .Lt.  .4}  CD ( I ) *  .4 

cccccc 

FMACH2*  VREL(I>*»2  /  CONST! 

TEMP8»  PS  «  (  (1.  ♦  GMI02  *  FMACH2) *»G0GM1  -  1.) 

0RA6  ( I )  =  TEMPB  *  CD  <  I )  *  TEMP*  *  14**. 

ALPHA(I>*  DRAG ( I >  /  GRASS  •  VSIGN  *  G 

IF  (OPTION  .EG.  0.)  GO  TO  140 
C  MODIFY  FOR  EFFECT  OF  G 
CSSS  OUMIa  G  -  ALPHA ( I )  *  SPHl 
DUMi*  -  ALPHA! I)  *  SPHI 
0UM2*  -ALPHA (I)  *  CPHI 
ALPrtA(I)*  SORT  (0DMI**2  ♦  OUH2«*2) 

SINua  0UH1  /  ALPHA!  I) 

COSH*  OUM?  /  ALPHA! I) 

V40  T IMS (I ) ■  n*  /  VF  ( I ) 

DUMMYl a  VF ( I ) *•? 

OUHrtV2=  2.  •  OX  *  ALPHA (I) 

C  CHECK  IF  ROUNO/OFF  ERROR  I  S  A  PROBLEM 

IF  (ABS(0HHHV2  /  DUMMY  1 )  .LT.  l^E-7)  GO  TO  180 
TlMS(I)a  ( SDR T (DUMMY I  ♦  UUMMY2)  -  VF(I)  >  /  ALPHA ( I ) 

180  OELV ( I ) a  ALPHA ( I )  •  IIMS(I) 

IF  (OPTION  .EG.  C.)  GO  TO  (85 

VRVa  VRV  ♦  OELV  ( I )  *  SI««a 

VRHa  VRH  ♦  OELV(I)  *  COSH 

DUH  a  VRV  ♦  VAIHV 

l)UM2a  VRH  ♦  VAIRH 

VF2*  SORT (0UM1**2  ♦  OUM2**2 ) 

GO  TO  186 

185  VF2=  VF ( I >  .  OElV(I) 

C  CHECK  IF  VI  THIN  TOLERANCE 

186  IF  ( AHS ( I .  -  DELVG  /  DELV(I)  )  .LE.  .01)  00  TO  200 
DELVG*  OELV(I) 

IF  (  ABS (DELVG)  .LT..01)  GO  TO  200 
KOUnTAs  KOUNTA  ♦  1 
IF  (KOUNTA  .LT.  25)  GO  TO  100 
1V0  WRITE  (61.1000)  KOUNTA,  KOUNTB,  KOUNTC.  KOUNTD.  I 
WRI1E  (61.1001)  TF2.VF2.02.E2 
INTER*  -1 

IF  i OPTION  .NE.  0.)  GO  TO  300 
CALL  EAIT 

C  HAVE  CONVERGEO  ON  VF2.  NOW  CALC.  OELT*  TF,  WF 
200  TEHPC*  SQRT(RN(I) ) 

QNUM*  2,  »  TEMPF  *  TfMPC 
OELW  *  (JNUM  •  TEMPO 

CCCCCC 

IF!  (OELW*TIHS(I) ) .GT.QMASS)  OELWaQMASS/TIMS (I) 

QNUM*  2.  *  TEMPH  *  TEMPO 
210  Z=  UELW  /  UNUH  •  TEMPI 
ZZ»  Z  /  (EAP(Z)  -  1.) 

QVZ*  ONUH  *  ZZ  •  TEMPJ 
IF  (KOUNTD  .EO.  0)  GO  TO  240 
C  AT  dOILING  POINT.  ASSUME  OELTFa  0. 

IF  (VaPLAM  .EQ.  0.)  GO  TO  190 
OELWNa  QVZ  /  VAPLAM 

CCCCCC 

IF ( (OELWN*TIMS(I>  > .GT. GRASS)  0ELWN*UMA5S/7!MS ( I ) 

IF  ( AHS (OELWN  -  OELW)  .LE.  .001  *  AHS(DELW)  >  GO  TO  220 
OELWa  OELWN 

KOUnTO”  KOUNTO  ♦  1 
IF  (KOUNTO  .LT.  25)  GO  TO  210 
60  TO  190 
220  IJK*1 
K0UNT0«1 

C  AT  BOILING  POINT.  CALC  TF2  BASEO  ON  PS  AND  E2 
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230  TF2a  PA5F  <-pST'e2» 

DEL  TF  ( I )  a  TF2  -  TFti: 

GO  ro  250 

2*0  OELfFII)*  U1WZ  -  OELW  *  VaPLAM)  •  TIMS ( I )  /  TEMPK 
TF2a  TFII)  »  OELTF  II) 

CCCCCC 

IF (KFUEL.E9.4.AN0.TF2.GT. 1092.8)  TF?a 1092.8 

CCCCCC 

IF (KFUEL.EU.2. AN0.TF2.GT >1210.*)  T!  2»1P10«* 

C  CHECK  IF  WITHIN  TOLERANCE 

250  IF  ii«S(  -1ELTFII)  -  OELTFG)  .LE.  .01*ABS(0ELTF  ( I  >  >  >  GO  TO  260 
OELTFus  ')ELTF(I) 

IF  (  AdSinEl  fFG)  .LT.  1.)  GO  TO  260 
KOUNTd*  KOUNM  .  1 
IF  (K0UNT8  .LT.  25)  GO  TO  TO 
GO  TO  190 

C  HAVE  CONVEHGEO  ON  TF?.  NOW  CALC.  DELTA  I) 

260  IJKaO 

270  W2a  WII)  -  OELW  •  TIHSII) 

IF  (W2  .LT.  l.E-30)  W?a  I.E-30 
SGWESOa  SflWFCT  (E2) 

SG 1 1 ) a  SGFCT I TFP.SGMESO) 

SG60 I ! ) a  SGFCT  (519.69.SGHES0) 

02«  (t,  •  w?  /  PI  /  S6II)  /  6  .’,*28)  •*. 3333333333 
IF  '02  .LT.  I.E-10)  OP«  I.F-IO 

E2*  1.  -  (02  /  DStAWT  1 1 )  )**3  •  SGU)  /  SG60II)/  SGSG60II) 

IF  IF2  .uT.  .99)  E2»  .99 
IF  (E2  .LT.  0.)  E2a  0. 

OELO»  0?  -  0(1) 

C  CHECK  IF  wIT.cn  TOLERANCE 

I  ANSI  1 .  -  0EL03  /  DElO)  .LE.  .01)00  TO  300 

OELOGa  opLn 

IF  *. AfiS (0EL06)  -•  L >.  l.E-7)  GO  TO  300 
KOUNTC*  kountc  •  1 
IF  (KOJNTC  .l>.  2r>)  GO  re  i<) 

GO  TO  KC 

C  HAVE  COnVERGEO  ON  ALL  PARAMETERS  FOR  THIS  INTERVAL 
C  SAVE  OU)  CONDITIONS.  SET  NEW  ONES 
300  VF 5«VE ( I ) a  V F ( I ) 

VF(1)«  VF? 

TF sAVF ( I ) a  TF(I) 

TF  1 1 ) a  TF? 

OSAVEIDa  0(1) 

0( I) a  0? 

ESAVE  (  I )  a  r.(I! 

E ( I ) a  E2 

OELO(I)a  .OV2  v  TIMS(I) 

OELM  ( I )  a  nEl.W  *'  'IMSID 

1000  FORMAT  (l«HO*V’*»  "  AP  (-.'ILURE  .*  1 5.5X .  7H0R0PLET  15) 

1001  FORMAT  (*E1S.S) 

Rt turn 

end 

FUNCTION  Pr.SF  (TiE) 

C  Ta  temper.  <«>,  e*  fraction  evaporate.' 

C  PaSF*  fuel  vapor  PRESSUoe  (PSia)  fof  JP4.  JP5/JPB 
COMMON  /  INPUT  /  kfUEL«0E')»GAP«PPh*Ti"LE*8> 

01 MtNSION  CKI (7.*) .  CK2(7.*>,  ETA8I7) 

OA TA  ETA8  /  O.t.I*  .3.  .5.  .7.  .9  .1.0  / 

1.  CKI  /  0..  0*.  0*.  0*.  0*.  0*.  0.. 

2  1558 io.. 386390. *585230. .8 l755o.« 132 1200. *31 75*00.. 10497000. « 

3  0<<  0..  0.<  0..  0..  0..  0 » . 

*  *0*97., 136750.. 2864 Jo. . 60*200.. 1399600.. 7 04*1 00. .T7680000./ 

5.  CK2  f  0«.  0..  0>.  0«.  0..  0..  0>. 

6  7414.8.8548.4.9066.7.9484.0. 10003.* 11 I78..12670*. 

7  0*.  0«.  0..  0*.  0..  0*.  0. « 

8  4816, . 6269. ,Ti5l,, 80*2, .Vo*5., 10974. ,13839.  / 
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c 

IF  IKFUtL  .ME.  2  .AND.  KFUEL  .N£.  4)  00  TO  150 
C  IF  IT  .LT.  0  «  ARGUMENT  IS  l-PSl.  FINO  AMO  RETURN  COHHES.  TEMPERATURE 
PSl*T«-T 
DO  50  J«1 ,7 
I«J 

IF  (t  -  ETABl J> )  60,90.59 

60  CONTINUE  ■» 

GO  TO  70 

60  IF  (I  .EO.  1)  I«2 
70  K»1 

*■0  IF  IPSTAT  .LT.  0.»  GO  TO  83 

PASF«  CK?il,KFUEL>  /  ALOG  <  CK  HI,  KFUEL  1  /  PSTaT  ) 

GO  TO  84 

83  PASFaCK) II.KFUEL)  *  FXP|  -CK2I  I.KFUEL)  /  T  > 

84  IF  IK)  110.100.85 

85  PSAVEa  PASF 
J«I 

T»  I  -  1 

Ka  -1 
GO  TO  80 
90  KaO 

GO  TO  80 
100  RETURN 

110  PA5Fa  PASF  ♦  IPSAVE  -  PASF)  /  lETABlJ)  -  ETABl!))  •  IE  -  ETA3II) ) 

GO  10  100 

150  WRITE  161-1000)  KFUEL 
1000  FORMAT  ( 25H0PASF  CANNOT  HANOLE  FUEL*  !5> 

CALL  EXIT 
End 

function  vapcpf  (I) 

C  T*  TEMPER.  |M) .  VAPCPFa  CP  FOR  JP4.  JP5/JPB  FUEL  VAPOR 
COMMON  /  INPUT  /  KFUEL. OEQ. GAP, PPH. TITLE (B> 

IF  IKFUEL  .EO.  ?)  GO  TO  50 
VAPCPFa  . I  Mo  ♦  .000565  *  T 
GO  TO  100 

50  VAPCPFa  .069  ♦  .000530  *  T 
100  RETURN 
ENO 

FUNCTION  VAPMUF  |T) 

C  Ta  TEMPER.  IM),  VAPMUFa  MU  FOR  JP4,  JP5/ JP8  FUEL  VAPOR 
COMMON  /  INPUT  /  KFuEL. OEQ. SAP, PPH, TITLE  18) 

IF  IKFUEL  .EO.  2)  GO  TO  50 
VAPMUF*  80R.E-9  ♦  7.64E-9  •  T 
GO  TO  100 

50  VAPMUF*  248. E-9  ♦  6.31F.-9  *  T 
100  RETURN 
END 

FUNCTION  VAPKFIT.W) 

C  T*  TEMPER.  (H>,  VAPKFa  K  FOR  FUEL  VAPOR 

c  wa  molecular  weight 

DIMENSION  RTAR(4).ATAB(4).RTA3(4). TABK <4) 

OATA  VTAU/50 . ,  100.,  ISO.,  300.  /«  NTA8  /4/, 

1  ATAR  /  -.006362, -.006358, -.006284, -.006010  /, 

2  R TAR  /  .0000297, .0000273, .0000259, .0000235  t 
C 

00  10  Ial.NTAH 

1C  TAdK  1 1 )  a  ATAH(I)  ♦  UTAH  1 1 )  *  T 

VAPK.F*  TAP.  (W.NTAd.TAHK.NTAB)  , 

RETURN 

END  * 

FUNCTION  SGFCT  (T.SG60R) 

SG60R  «  SO  RESIDUE  AT  60  DEG  F 

Ta  TEMPER.  (R) ,  SGFCTa  SG  FOR  JP4  AND  JP5  LI8UID  FUEL 
SGFCTa  SG60R  ♦  ,208  -  .000**  T 
RETURN 
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FUNCTION  sgrfct  CE> 

C  £■  FRACTION  EVAPORATED.  SG60«  SG  AT  60  QEG  f 

C  SGMFCTa  SG  RESIDUE  AT  bO  DEG  F  FOR  JP4.  JP5/JP8  L1UUI0  FUEL 
CO  MON  /  INPUT  /  KFUEL.OEO.GAP.PPH.fT  1TLE  (8) 

OATA  SGbOA/  .775  /  «  SG6058  /  .806  / 

SGbOa  SG60A 

IF  (KFUEL  .NE.  A)  SG60»  SG60S8 

SGRFCT*  1.076  /  (  (1.076  /  $G60  -  1.)  •  Cl.  -  .67  •  E»  *  1.  > 

RETURN 

ENU 

FUNCTION  VAPOF  CT.P) 

C  T«  TEhPER.  (R)  .  P»  STATIC  PRESSURE 
C  VaPUF*  01FFUSI V1TY  FOR  HEPTANE-OXYGEN 

VARUFa  2,083  /  P  •  (T  •  CT  •  1.U19E-9  ♦  1.973E-6)  -  9.815E-4) 

RETURN 

ENU 

FUNCTION  VOPMF  CEI 

C  E*  FRACTION  EVAPORATED.  VaPMF*  MOLECULAR  HEIGHT  OF  JPA.  JP5/JP8 
C  FUEL  VAPOR 

COMMON  /  INPUT  /  KFUEL. DEQ. GAP, PPH.TITLEC8) 

DIMENSION  ETAHC/I.  TAHMVC7.A) 

OATA  ETAH  /  0.«  .  ,  .3,  .5.  .7.  .9.  1.0  /»  NT  AH  ✓?/. 

1  T *oMV  /  0 •  •  0 •  9  0 •  t  i)«9  Oct  0«t  Oct 

2  148 .12,163. 29, 169. 88, 175 .04, 182 .25.194. 86 ,211.07, 

3  0 . «  0.,  0.,  0.,  0. ,  0.,  0., 

4  93.2S,  114.60.  126t61,  138.1b,  150.59,  W3.21,  204.76  / 

C 

VAPmF.  TAHCE,  ETAd.  TARMV Cl, KFUEL),  NTA8) 

RETURN 

END 

FUNCTION  V APLMF ( T I 

C  T«  TEMPER  (R).  VAPLMF*  LATENT  HEAT  OF  VAPORISATION  FOR  JP4.BIU/LB 
C  ALSO.  JP5/JP8 

COMMON  /  INPUT  /  KFUEL. DEO. GAP, PPM. TITLE  CM) 

IF  CKFUEL  .EO.  2)  GO  TO  So 
VaPlMFb  0, 

IF  CT  .LT.  1092.88)  VaPL«F*  13.20  *  (1092.88  -  T)  **.39 
GO  TO  100 
50  VAPLMF a  0. 

IF  CT  .LT.  1210.45)  VAPLMF ■  10.75  *  (121b. 45  -  T)  oo.Al 
100  RETURN 
E^D 

FUNCTION  CPFCT  (T.SGR60) 

C  T=  TEMPER  CR).  CPFCT,  CP  FOR  LIQUID  JPA*  JP5/JP8 
C  SGRbOa  SG  RESIOUE  AT  60  OEG  F  FO»  JPA 

CPFCIa  C  . 1 B 1  ♦  .00045  •  T)  /  SORT  CSGR60) 

RETURN 

ENO 
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APPENDIX  II 


PNEUMATIC" IMPACT  FUEL  INJECTOR 
COMPUTER  PROGRAM  1528 


1.0  INTRODUCTION 

Computer  Program  1528  analyzes  pneumatic-impact  type  fuel 
injectors  to  determine  airflow  conditions  and  fuel  spray  drop 
size.  Spray  trajectories  and  evaporation  are  computed  for 
three  optional  ambient  environments.  This  appendix  describes 
the  program  imput  preparation  and  usage.  The  program  can  also 
be  used  for  an  L-pipe  spraying  into  a  swirler  cup. 

2.0  PROGRAM  INPUT 

Program  input  is  shown  in  Figure  170.  The  first  card  is 
a  title  card;  the  desired  ambient  environment  indicator, 
a  1,  2,  or  3,  is  entered  in  Column  1.  The  three  ambient  con¬ 
ditions,  depicted  on  the  data  sheet,  are: 

Option  1:  A  uniform  temperature  and  velocity  stream 
flowing  past  the  nozzle  in  a  direction 
parallel  to  the  nozzle  axis.  This  option 
is  used  for  basic  spray  trajectory  and 
evaporation  studies. 

Option  2:  Spray  test  stand  option  with  gravity  effect. 

Airflow  is  from  the  nozzle  only  with  a 
quiescent  environment.  Gravity  acts  in  a 
direction  along  the  nozzle  axis. 

Option  3:  A  two-dimensional  flow  field  for  temperature 
and  velocity  as  generated  by  the  two- 
dimensional  Gosman  Program  1338.  The  flow 
field  is  obtained  from  a  disk  file  or 
magnetic  tape  written  by  the  Gosman  program. 

This  input  source  must  be  identified  as 
TAPEl . 

I 

The  second  data  input  card  contains  the  following 
information: 

(a)  V  .  Initial  guess  of  air  velocity  at  D. , 

dll  CJU6SS  /  X 

may  be  left  blank.  This  is  used  to  shorten  • 

iteration  time  if  approximate  velocity  is  known. 
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FLOM  FIELD  option©  ©on® 
TITLE 


FUEL  COOE: 

2  -  JP-5 

4  -  JP-4 

VAIR. GUESS  t  T  PAIR  1U  TAIR  IM  "*  4*>AIR  TpZ  GAS  °« 

I  OPTIONAL  1Q  u  F‘  21  PSIA  21  **  *1  PPH  51  PSI  61  *R  71  IM  80 

HI 

1 

I 

I0FUEL,  JET 

1  IN 

* 

Oi  CR  N 

11  IN 

°2 

21  IN 

°3  Xi 

31  IN  41  IN 

X2 

51  IN 

© 

VPZ,  GAS  °°FJEL(  JET 

61  FPS  71  IN  80 

•OPTIONAL  NON-CI RCULAR  VENTURI  GEOM.  -  INPUT  M  IN  PLACE  Or  Ol<  I  CAVE  Oj.  Oj,  X^  X2  BLANK.  INPUT  (X(I),  I  -  I.  M)  -  LENGTH 
ALONG  £  FROM  VENTURI  INLET.  IN.  (A (I ) ,  I  •  I.  N)  •  MAJOR  ELLIPSE  AXIS.  IN.  (E(I),  I  -  I.  N)  MINOR  ELLIPSE  AXIS,  IN. 

2<N«10 


(b)  Fuel  code:  enter  2  for  JP-5  or  4  for  JP-4 


(c) 

(d) 

(e) 

(f) 

(g) 
Ci) 


Tp,  fuel  temperature,  °R 

Pair  in>  total  air  pressure  at  venturi  inlet,  psia 

T  .  .  ,  air  temperature  at  venturi  inlet,  °R 

air  in  r 

Wp,  fuel  flow,  lb/hr/injector 

APair,  injector  differential  air  pressure,  psi 

Tb  :  Option  1  only,  enter  temperature,  °R,  of 
f u  gas  ~ 

uniform  stream.  Options  2  and  3,  blank. 


(i)  D4,  diameter  of  impact  plate,  in. 

The  third  data  card  requires  the  following  information: 


(a)  ID-  ,  .  . ,  inside  diamter  of  fuel  tube,  in. 

fuel  jet 

(b)  or  N,  venturi  inlet  diameter  if  venturi  is 

circular.  If  noncircular,  enter  number  of  sets 
of  X,  A,  and  B  in  ellipse  table. 

(c)  D2,  venturi  minimum  diameter,  in.  (May  be 

less,  equal,  or  greater  than  D-.)  Leave  blank  if 
noncircular. 


(e)  X1#  length  from  venturi  inlet  to  D2 ,  in. 

(f)  X2,  length  from  D2  to  venturi  exit,  in. 

(g)  V  :  Option  1  only,  enter  velocity,  fps,  of 

r  L  CJcLS 

uniform  stream.  Options  2  and  3,  blank. 


(h)  OD -  .  .  . ,  outside  diameter  of  fuel  jet,  in. 

fuel  jet 

and  OD  determine  venturi  inlet  area. 

If  the  noncircular  option  is  desired,  leave  D_ ,  D_,  X. 

'  w i  .1.  Z  j  J. 


and  X2  blank. 


Specify  ellipse  major  diameters.  A,  and  minor  diameters, 
B,  as  functions  of  the  distance,  X,  along  the  axis  from  the 
venturi  inlet  at  up  to  10  points .  Enter  the  number  of  points 
in  place  of  on  the  second  data  card.  Cards  with  X,  A,  and 
B  are  enteredafter  the  third  card. 
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The  last  card  contains  the  following  information: 

(a)  xiip'  Option  3  only,  locates  axial  position  of  the 

lip  relative  to  the  origin  of  the  Gosman  2-D  flow 
field.  Options  1  and  2,  blank. 

(b)  Option  3  only,  locates  radial  position  of  the 

lip  relative  to  the  origin  of  the  Gosman  2-D  flow 
field.  Options  1  and  2,  blank. 

(c)  ®iip,  angle  of  initial  spray  direction  relative  to 
horizontal,  deg. 

(d)  GAP,  gap  between  venturi  exit  and  impact  plate,  in. 

(e)  C.  ,  gap  discharge  coefficient  (recommend  0.6). 

D  gap 

(f)  X  x,  limits  spray  trajectory  distance.  See  data 

sheet.  For  Option  3,  Xmax  should  be  set  at  the 
Gosman  grid  boundary. 

(9)  Y  limits  spray  trajectory  distance.  See  data 

ITlcLX 

sheet.  For  Option  3,  Ymax  should  be  set  at  the 
Gosman  grid  boundary. 

3 . 0  PROGRAM  COMPUTATIONS 


A  listing  of  the  computer  program  is  presented  in  Table 
XXII.  Airflow  through  the  venturi  and  exit  gap  is  computed, 
including  area  change,  drop  evaporation  and  drag,  and  friction 
loss.  Inlet  velocity  is  iterated  until  the  pressure  drop 
matches  that  input.  If  the  exit-gap  effective  area  is  less 
than  the  venturi  exit,  air  velocity  at  the  gap  is  increased  by 
the  area  ratio.  If  the  gap  effective  area  is  greater  than  the 
venturi  exit  area,  the  velocity  at  the  gap  remains  the  same  as 
that  at  the  venturi  exit.  Drop  size  is  computed  at  the  gap 
from  a  computed  fuel-sheet  thickness  and  effective  air  velocity 
corrected  for  radial-flow-velocity  decay. 

Spray  trajectories  are  computed  for  the  three  options  by 
a  drag  coefficient  and  the  relative  velocity  between  the  drops 
and  the  air.  The  spray  is  divided  into  five  drop-size  groups, 
sized  in  ratios  to  the  SMD. 
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TABLE  XXII.  LISTING  OF  PROGRAM  NO.  1528 


SStSiSSSStt't'lftSfSStVsSSSSSSiStSttttftsYsSSSStSStSltSSSSSSSSSStSSiSiStSSSSSSSSSSSSSt 


•DECK  I 

OVERLAY  (IMPACT, 0.0) 

PROGRAM  1MPACT1  (IMPUTES, OUTPUT, TAPE60«!NPUT.TAPE61«OUTPUT* 

1  TAHE1,  TAPE?=513) 

COMMO'i  /  IMPUT  /  SPACE  ( A) ,  T!TLE (8) ,  SPACEK2) 

COMMON  /  OEVAP/  OUMMY(20! .0(5)  TF (5) , VF ( 5) , VREL ( 5) .  RN(5>* 

1  C0(5) ,0RA0(5) ,FN(5)1  CP (5) ,0ELQ (5) »SG (&) ,FRH0 (5) .OELTF (5) , 

2  5  5  5  5  5  5  5  5 

3  » .OSAVF(S) ,ESAVE(5) ,OSTART(5) ,SGSG60(5  , SG60 (5) «0ELM (5) 

4, OPTION. VAIRH, VaIRV. SI N1, COST, OUM|,OUM2 

CCCCCC 

♦  , VST (5) *FW (5) 

COMMON/TRAJ  /  SPACE2 ( 17) 

COMMON/  TABLES  /  T1 (7) ,VISA!R<7> ,T2(2,4) ,SGFUEl(2,4> ,T3(12«4> , 

1 VI SFUL ( 12 , A) ,NTaHI »NTAB? »NT AH3.NFUELS 
COMMON  /  TABLES  /  T5(10> «SGTAB5(4) ,SRFTNS(10,4) ,NTAB5T.NTAB5S» 

I  OIaSmOISI ,NOIASM,RNTAR{7) ,FTaB(7).NTARRF,TaR(I1> , prat AS ( i i > ,ntab4 
COMMON/TaRLES/  TRR (8) »  TkTaB (8) ,NTABB»T9R(10) ,CPTAB(I«>  »NTAB9 
COMMON  XLl,XL«J,0IAl,0lA2,SL0PEl,SL0Pt? 

COMMON  NXXXX,AXISMJ(10) .AXISMM(IO) ,XXXX (10) 

COMMON  /  OVRLY  /  KOVRLY 
OIMENSION  LAPELSO) 

COMMON  /PL0TN3  /  KPLOT 
OATA  KPLOT  /O/ 

OATA  LABELS  /  1HI,  1H2,  1M3  /  ,  NLABEL  /  3  / 

OATA  MASKI  /  TTOOOOOOOOOOOOOOOOOPB  / 

OATA  IZP8KS/  005555S55SS555555SSSB  / 

OATA  KFILE  /  6HIMP*CT  / 


OIASMI)  is  TAJLE  OF  OIa/SMO  (OMLS)  VALUES 
Tl,  VISAIR  (S  TABLE  OF  TEMPERATURE  <F)  VS. 

VISCOSITY  OF  AIR  (LR/SEC/FT) 

T?,  SGFUE'.  IS  TAHLE  OF  TEMPERATURE  <F)  VS. 

SPECIFIC  GRAVITY  (OMLS) 

FOR  4  FUELS—  SHELLOYNt  M,  JP5— JPR,  JET  A-l,  JP* 

T3,  VISFtJL  IS  TABLE  OF  TEMPERATURE  (F)  VS, 

VISCOSITY  OF  FUEL  (CENT JSTOKES) 

FOR  4  FUELS  LISTED  ABOVE 

T5,  sgtabs.srftns  IS  TABLE  of  TEMPERATURE  (F).  and 

SPECIFIC  GRAVITY  (DHLS)  VS. 

SURFACE  TENSION  (DYNE  /CM.) 

rntab,  FTAR  is  moody  curve  of  reynolos  number  VS. 

FPTCTION  FACTOR 

Tor,  cptab  is  table  of  temperature  (R>  vs. 

C(P)  FOR  AIR 

DATA  OIASMO  /  .667, .82*. 1.05,1. 333, I, 765  / 

OATA  NTABl .NTAB2»NTA93.NFUELS  /  7«2«12»v  /.NOIASm/5/ 

OATA  (TI ( I ) , I »1 ,7)  /  40. ,540. ,1041. ,1540, ,2040. «?5*0,, 3040,  /, 

I (VlS*lR( I ) , I«1 ,7)  /  l.I7E-5,I.89F-j,2.50E-5,3,0lE-5,3,48E-5,3,90E- 
25.4.29E-5  / 

OATA  T2  /24. , 300. , 0., 220. ,36. ,260. ,f 5.i200,  /, 

I  SGFUE).  /I  .1  ,.975,. H5,. 7625,  .8  5,  .7375,  .775, .7125  / 

DATA  T3  /-SO, ,0, ,40. ,60. ,80.  100 ., 150 .,200 . ,250. ,300. ,350 . ,400 . , 

1  '  -50. ,0., 40. ,60. ,80. ,100. ,125. ,150., <75, (200. ,225, ,250,, 

2  -50 . ,0 .  ,40  0., 80. ,100. ,125. ,150, ,175. ,200. ,225. ,250,, 

3  -50.,0.,40. ,o0., 80., 100., 125., 150., 175., 200,, 225,, 250./, 
4VISFUL  /3000.,2IO.,S5.,32.,20.,14.,6.5,3.6,2.1,I.35,.9,.64, 

5  23,, 6. 2, 3 .25, 2. 5, 2., I. 65, I, 35, 1.15,, 98,, 8a,. 75,. 67, 

6  19., 5, 4, 2. 9, 2. 3, 1,85, 1.55, I. 3, 1.08,, 92., 81,, 72,, 64, 

7  4. 7, 2. 15, 1.43, I. 23. 1.04, ,93, .79, ,69, ,61, ,55, ,49, .44  / 
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TABLE  XXII.  (CONTD) 


DATA  Tb“V  'Sfir,  1  AO .  . 1 50 .'.200.i25Tr.Y300. ,  350 . , *06 .  .*50.,&0o“. 

OA7A  SGTAR5  /  .72, .76.. AO. .8*  / 

DATA  NTAB5T.NTABSS.NTABRF  /  10, A, 7/ 

DATA  SRFTNS  /  21. .18. 2.15.5, 13. .10. 6. A. 2, 5. 9. 3. 9. 2.0, .2. 

1  23. 1.20. 5. 18. 0.15. 6. 13. *.11. 1.9. 0,7. 0,5. 1.3. 3. 

2  23. 9, ?).8. 19. 6, 17. 5. 15. 4, 13. *.11. *,9.5,7. 7 .6.. 

3  2*. 9, 22. 9, 21. 0.19. 1.17. 3. IS. 5. 13. 8. 12. 1,10.*, 8. 8  / 

DAT*  RnTAP,  /  3.E3,1.E*«7.£*,1.£5<3.E5,1.E6«1.E7  /, 

1  FTAR  /.Oil*. 008, .00625. .005. .00**5, .00*1, .00*0  / 

DATA  T9rt  /500. .600., 700., 800. .900., 1000., 11 00., 1200.. 1*00. .1000,/, 

1  CPTAB  /. 2*05, .2*10,. 2*22. .2**0, .2*62. .2*90, .2519, .2550, .2613. 

2  .2670/ 

o*r*  ntabo  /  io  / 

CALL  PLOTS  (A. 0.01 

1  READ  (60.1000)  TITLE 
IF  (EOF(60))  999.2 

999  CALL  PLOT  (0..0..999) 

CALL  EXIT 

MASK  OFF  FIRST  CHARACTER  IN  TITLE 

2  IwOROsANO  €  TITLE  Cl) .MASK1) 

FILL  PEST  OF  WORD  WITH  BLANKS 
I WORD*  1W0RD  ♦  IZRBKS 

DO  10  Ul.NLAHEL 
KOVRLY*  1 

IF  (LABELS  ( I )  .EO.  IWORD)  liO  TO  SO 
10  CONTINUE 

WHITE  (61.3000) 

CALL  EXIT 

50  CALL  OVERLAY  (KFILE .KOVHLY .0) 

GO  TO  1 

1000  FORMAT  (RAID) 

3000  FORMAT  (43M0FIRST  CHARACTER  IN  TITLE  DETERMINES  OPTION  ) 

END 

FUNCTION  OIAMTR  (X) 

COMMON  XL1 .XL2.DIA1 .01*2. SLOPE! .SLOPE? 

COMMON  NXXXX.AXISMJ(ln) , AXISHN ( 1 0) ,XXXX ( 1 0) 

IF  ( NXXXX  .NE.  0)  GO  TO  100 
IF  (X  .GT.  XL! )  GO  TO  20 
DlAMTR*  DIA1  ♦  SLOPE1  *  X 
) 0  RETURN 

20  DlAMTR*  OTA?  ♦  SLOPEZ  «(X-  XL1) 

GO  TO  10 

100  DlAMTR*  TARIX.XXXX.AXISMJ, NXXXX) 

GO  TO  10 
END 

FUNCTION  SMDF  ( TaU.ETAR.RMOG.OMR. SL » VT, VR) 

SM0F«  6.  *1.*E*  *SORT(T*U/RHOG)4ETAR*«.21  .065/QMR/SQRT(C)MR> 

1  )* 

1SORT (  SL/  ( VT**2  *(  VR  • ( .5  «VR  -1.)  *1.)  >  ) 

RtTURN 

END 

FUNCTION  TAR  (X.XX.YY.NTAB) 

DIMENSION  XX(1),  YY ( 1 ) 

F«l. 

IF  (XX(1) .GT.XX(2))  F«-F 

DO  10  Jsl.NTAR 

I«J 

IF  (F*(XX(I)-X) )  10, *0.20 
10  CONTINUE 

20  IF  (l.NE.l)  GO  TO  30 
1*2 

.30  J*I-1 

OEL*XX(I)-XX(J) 

IF  (DEL.EO.O.)  GO  TO  50 

TAB«(YY(I)*(X-XX(J) )-YY(J)*(X-XX(I)))/DEL 
RETURN 


uuuu 


TABLE  XXII 


(CQNTD) 


*0  Tau«yy(I> 

RETURN 

SO  WR'i  IE  (61  ,60)  X.I.J 
CALL  EXIT 

60  FORMAT  <2aH0«°*ERH0R  IN  ROUTINE  TAB.EI5.4.2I5) 

ENO 

•OECK  E 

SUBROUTINE  EVAP  (INTER. I) 

oroplet  evaporation. 

PROGRAMMED  I -22-7 1  BY  M.  TANI. 

o.tf.vf.e  are  input  for  nflop  no.  i 

c«***  NOTE—  fuel  property  equations  are  only  for  jpa  ano  jps/jpb  *•* 
c 

COMMON  /  INPUT  /  KFUEL.OEQ.GAP.PPM.TITLEIB) 

common  /  OEVAP/  DUMMY(2fl)  .0(5)  ,TF(5>  ,VF  <S)  ,VREL(5)  .  RN(5»t 

1  CO  (5)  .DRAG  (5)  «FN(5)  •  CP  (5)  ,OELO  (5)  *S>j(5)  .FRHO  (5)  .OELTF  (5)  * 

2  TIMS (5) .FMASS (5) .ALPHA (5) .OELV (5) .E (S) .OX. H (5) . VFSAVE (S) .TFSAVE (5 
S  ) .OSAVE (5) .ESAVE (5) .DSTART (5) • SGSG60 (5) »S J60 (5) • OELM (5) 

A. OPTION. VAIRH.VAIRV.SINT. COST. 0UM1.0UM2 
CCCCCC 

•  .»bT(5) ,£M(5) 

COMMON  /  TRAJ  /  VFUEL.TFUEL.7FUELF.SGF.FMU.RM0F.PS.PT.TS.TT. 
lOUMM/QH)  .VAIR 
COMMON  /  OVRLY  /  KOVRLY 

DIMENSION  TAIRTR ( 7) .AIRkTB (T) . AIRMUT (7) .AIRCPT (7) 

DATA  TAIRTB  /  *00. <600. .10<>0. ,1500. ,^000. .2500. .3000.  / 

1.  AIRKTB  /  .Oil*. .0165.. 0252*. 0344,. 0422.. 0486, .05*7  / 

2«AlH*'UT  /I ,E-5. 1 .3E-5. I .885E-5.2.5E-5.3, 015E-5.3.48E-5.3.9E-5  / 

3.  AIRCPT  /. 240*. .2*09, .2*0. .2642, .2772, .2868, .2931  /.NTABAR/7/ 

DATA  G. GAMMA, R.PI04,G0GMI,GMI02. PI  /32 . 1 74 • 1 ,4. 15*5.327 • .7853582, 

I  3.5. .2.  3.1*15927  / 

C 

AIRM-  28.966 

CONST 1*  G  *  5AMMA  *  R  •  TS  /  AIR  4 
C  CHECK  FOR  FIRST  ENTRY  TO  ROUTINE  ( INTER"! > 

IF  (INTER  .NE.  I)  GO  TO  50 
C  ESTIMATE  NEXT  STATION  CONOITIONS 

VF2»  VF ( I ) 

TF2"  TF ( I > 

02»  0(1) 

E2«  E(I) 

OSTART ( I) ■  C(I) 

GO  TO  55 

C  ESTIMATE  NEXT  STATION  CONOITIONS 

CCCC 

50  CONTINUE 
VF2"VF(I) 

TF2"TF  ( I ) 

02"U ( I ) 

E2"E(D 

CCCCCC 

IF  (02  ,LT.  I.E-IO)  Ogr  I.E-IC 
IF  (E2  .GT.  .99)  E2»  .99 
IF  (E2  ,LT.  0.)  E2“  ». 

C  INITIALIZE  FOR  ITERATION  ON  0 
55  KOUNTC"  l 

SSHESO"  SGRFCT  (E(D) 

SG 1 1 )  •*  SGFCT  (TFtl)  .SGRFSO) 

SG60 (I ) ■  S3FCT  (5I9.69.SGRES0) 

IF  (INTER  .EO.  I)  SGSG60( I) ■  SO ( I »  t  5060(1) 

CCCCCC 

OELOG"  02  •  0(1) 

K0UNT0"0 
60  KOUNTB"  i 
0Z>  0(1) 
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TABLE  XXII.  tCONTD) 


CIRCUm* 'Pf'*  DZ 
TEMPA«  PIO*  •  0Z**2 
TEMPO*  TEMPA  •  OZ  /  1.5 
C  INITIALIZE  FOR  ITERATION  ON  TF 

OFLTFG*  TF?  -  TF  (I) 

EZ*  Ed) 

VAPM*  VAPMF  (EZ) 

SGRESD*  SGRFCT  (EZ) 

C  AVERAGE  TEMPERATURES,  CALC.  PROPERTIES 

TO  TFZ*  TF(I» 

TmX*  (TS  »  TFZ)  •  .5 
PAS*  PASF(TFZ.EZ) 

IF  (PAS  .LT.  PS-.01)  GO  TO  ac 
C  AT  SOILING  POINT. 

PAS*  PS  •  .01 
KOUNTO«l 

BO  VAPK*  VAPKFI TMX, VAPM) 

VAPMU*  VAPMUF  (  TMX  ) 

VAPLAMa  VAPLMF(TFZ) 

CP(I)«  CPFCT (TFZ.SGRESO) 

VAPCP*  VAPCPF(TMX) 

SG ( I ) »  SGFCT (TF7, SGRESD) 

FRMO ( I ) »  SG ( I )  • 1 6?. APB 
VAPO*  VAPOF (TMX.PS) 

IF  (VAPO  .LT.  .00005)  VAPO*  .00005 
ALP*  PS  /  PAS  *  ALC’GIPS  /  (PS  -  PAS)  ) 

C  AIM  PROPERTIES 

AIR«*TAB(T«”  .IRTH.AIRkT8.NT AGAR) 

AIRMll*TAH  I'AIRTB.AIRMUT.NTABARI 

AIRCP»TA8( i.  .tAIRTB.AIRCPT.NTABAR) 

C  OIFFJSION  ZONE  PROPERTIES 

OK*  PAS  /  PS  «  .5 

OJ*  1.  -  OK 

QKMX*  OJ  •  AIRK  •  QK  •  VAPK 
OMUMX*  OJ  •  AIRMU  ♦  OK  •  VAPMU 
QMMXs  QJ  *  AIRM  «  OK  •  VAPM 

OCPMX*  (QJ  •  AIRM  •  AIRCP  ♦  OK  •  VAPM  *  VAPCP)  /  OMMX 

QRHOMX*  PS  •  OMMX  •  l A*,  t  R  /  TMX 

SC*  OMUMX  /  VAPO  /  QRHOMX 

PR'  OCPMX  •  OMUMX  /  QKMX  •  3600. 

TEMPE*  nz  •  QRHOMX  /  OMUMX 
QMASS*  TEMPO  •  SG(I)  •  62-*SS 
TEMPF.  .6  •  SC**, 3333333333 

CCCCCC 

TEMPO*  CIRCUM  •  VAPO  •  VAPM  •  PAS  •  ALP  /  R  /  TMX  •  U*. 

TEMPH*  .6  •  PR**. 3333333333 

TEMPI*  VAPCP  /  CIRCUM  /  QKMX 

TEMPJ*  CIRCUM  •  QKMX  •  (TS  -  TFZ)  /  3600. 

TEMPK  a  TEMPO  •  SG(1)  •  CPU)  •  62**20 
C  INITIALIZE  FOR  ITERATION  ON  VF 
OELVG*  VF2  -  VF ( I ) 

KOUNTA*  1 

C  CALCULATE  DELTA  V  FOR  DROP 
100  VFZ*  VF { I ) 

IF  (OPTION  .CO.  0.)  00  TO  115 
VRV*  VFZ  •  SINT  -  VAIRV 

VRH*  VFZ  •  COST  -  VAIRH 

VREL ( I ) *  SORT ( VRV**2  *  VRH**2) 

SPHI*  VRV  /  VRELd) 

CPHI*  VRH  /  VREL(I) 

VSIGN*  1, 

00  TO  120 

115  VRELd ) ■  VAIR  -  VFZ 
VSION*  1. 

IF  (VRELd)  .GE.  0.)  GO  TO  120 
VREL(l)*  •  VRELd) 
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VSIGNa  -VSIGN 

cccccc 

120  CONTINUE 
CCCCCC 

IF ( VPEL ( I ) .LT.l •)  VREL ( 1 ) » I « 

CCCCCC 

RN( I ) aVft£L( 1 ) *T£MPE 
CO (1 ) a  27.  /  RN(I)**.A4 
FMACH2*  VREL (11**2  /  CONST1 

TEMP9»  PS  •  (  (1.  *  6H102  •  FMACH2) **G0GM1  •  1.) 

CCCCCC 

IF (TEMPR.LE.O.)  T£MPB*l.fc-20 

DRAG! I I  a  TEHP8  •  COd)  •  TEMPA  •  1*4. 

ALPHA  1 1 ) a  DRAG! I)  /  QMASS  •  VSIGN  •  G 
IF  (OPTION  ,EO.  0.)  GO  TO  146 

C  •• 

C  •*  NOTE  SPECIAL  CASE  FOR  SPRAT  STAND  OPTION 
OUMla  -  ALPHA! I)  •  SPHl 
IF  (KOVRLV  ,EO.  2)  OUMla  G  ♦  OUMI 

C  •• 

0UM2a  -ALPHA! 1)  *  CPHI 

ALPHA ( 1 ) a  SORT  (OUM)**2  ♦  OUM2**2) 

SIN8a  OUMI  /  ALPHA (1) 

COSBa  OUM?  /  ALPHA ( 1 ) 

140  TIMS(l)a  OX  /  VF ( 1 ) 

OUMMYla  VF(1)**2 
OUMMVJa  2.  •  OX  •  ALPHA (II 
C  CHECK  IF  ROUNO/OFF  ERROR  I  S  A  PROBLEM 

IF  ( ABS (DUMMY2  /  OUMMYII  ,LT.  l.E-7)  GO  TO  180 
TIMS (II*  ( SORT ( 0UMMY1  «  OUMMY2)  -  VF(I)  )  /  ALPHA ( 1 1 
180  OELVllla  ALPHAdl  •  TIMS(I) 

CCCCCC 

IF  ( ABS (OELV  (ID  .GT.  VREL  (III  OELV  ( II  a  VSI GN*  ( VREL  ( I )  -I . ) 
IF  (OPTION  .EQ.  0.)  GO  TO  185 
2000  FORMAT  dXtlQElI.3) 

VRVa  VRV  *  OELV(I)  •  SINS 

VRHa  VRH  .  OELV! I)  •  C0S8 

OUMla  VRV  ♦  VAIRV 

0UM2*  VRH  «  VAIRH 

VF2a  SORT (0UM1**2  ♦  OUM2**2) 

GO  TO  186 

185  VF2a  VF(I)  ♦  OELVdl 

C  CHECK  IF  WITHIN  TOLERANCE 

CCCCCC 

186  IF  ( AR'idlELV ( 1 1 -OELVG)  ,LE.  ,01*A8S(DELV(I)  ) )  GO  TO  200 
OELVfla  OELV! I) 

IF  (  ABS (OELVG)  .LT..01)  GO  TO  200 
KOUNTAa  KOUNTA  ♦  1 
IF  iKOUNTA  ,LT.  25)  GO  TO  100 
190  WRITE  (61.1000)  KOUNTA «  KOUNTB.  KOUNTC.  KOUNTOt  I 

1000  FORMAT (IRHO****  EVAP  FAILURE  »4I5t5Xt7HDR0PLET  IS) 
WRITE  (61.1001)  TF2.VF2.02.E2 

1001  FORMAT  (4E1S.5) 

INTERa  -1 

IF  (OPTION  .NE.  0.)  GO  TO  300 
CALL  EXIT 

C  HAVE  CONVERGEO  ON  VF2.  NOW  CALC.  DELTA  TF.  WF 
200  TEMPC*  SORT (RN( I ) ) 

ONUMa  2,  *  TEMFF  •  TEMPC 
OELW  a  ONUM  •  TEMPO 

CCCCCC 

IF ( (OELW*TIMS( I ) ) .GT.OMASS)  OElS-PMASS/TIMS(I) 

ONUHa  2,  ♦  TEMPH  •  TEMPC 
210  2a  OELW  /  ONUH  •  TEMPI 
22*  2  /  (EXPI2I  -  1.) 

OVZ*  ONUH  •  22  *  TEMPJ 
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•mxmjwrff"Eo;  o»  gototzcd 

C  AT  BOILING  POINT.  ASSUME  OELTFa  0. 

IE  (VAPLAM  ,EQ.  0.)  GO  TO  190 
OELHNa  avz  /  VAPLAM 

CCCCCC 

IF ( (OELWN*TIMS( I) l .GT.OMASS)  OELHNaOMASS/TlMSlI) 

IF  (ABS(OELWN  -  DELHI  .LE.  .001  •  ABS(OELH)  )  GO  TO  220 
OEL*«  OELHN 
KOUNTO*  KOUNTO  ♦  1 
IF  (KOUNTO  .LT.  25)  GO  TO  210 
GO  TO  190 
220  IJKal 

KOUNTO»1 

C  AT  BOILING  POINT.  CALC  TF2  BASEO  ON  PS  ANO  E2 
230  TF2»  PASF  (-PS.  E?) 

OELTF Ills  TF?  -  TF ( I I 
GO  10  250 

2*0  OELTF (I)«  (OVZ  -  OELH  •  VAPLAM)  »  TIMS(I)  /  TEMPK 
TF2»  TF ( I )  ♦  OELTF (I) 

CCCCCC 

IF (KFUEL.£0.*.AN0.TF2.GT. 1092.8)  TF2=1092.A 
IF(KFUEL.E0.2.AN0.TF2.GT.1210.A)  TF2*1210.* 

CCCCCC 

CCCCCC 

OELTF(I)aTF?-TF(II 
C  CHECK  IF  WITHIN  TOLERANCE 

250  IF  (AhS(  OELTF(I)  -  OELTFG)  .L- .  .01*' JSIOELTF ( I) )  )  GO  TO  260 

OELTFGa  OFLTF(I) 

IF  (  A8S (OELTFG)  .LT.  I.)  GO  TO  260 
KOUNTH*  KOUNTB  ♦  I 
IF  (KOUNTO  .LT.  25)  GO  TO  TO 
GO  TO  190 

C  HAVE  CONVERGED  ON  TF2.  NOW  C*LC.  OELTA  0 
260  IJKaO 

270  W2a  W(I)  -  OELH  •  TIMS ( I ) 

IF  (W2  .lT.  l.E-30)  H?a  l.E-30 
SGRESOa  SG°FCT  (E2) 

SG ( I ) a  SGFCT(TF?,SGRESO) 

SG6U ( I ) ■  SGFCT  (519.69.SGRESP) 

0?a  <6.  •  HP  /  PI  /  SR(I)  /  62.* 28 )•', 3333333333 
IF  (02  .LT.  1.E-10I  02»  I.E-IO 

C2a  1.  -  (02  /  OSURT(I)  )»*3  •  soil)  f  SG60II)/  SGSG60(I> 

IF  (E?  .GT.  .99)  E2*  .99 
IF  (F2  .LT.  0.)  £2*  0. 

OELOa  D2  -  0(1) 

C  CHECK  IF  WITHIN  TOLERANCE 
CCCCCC 

IF (ARS (OELO-OELOG) .LE.  ,01*ARS(OELO) >  GO  TO  300 
OELOGa  DELn 

IF  URS(OELOG)  .LT.  l.E-T)  GO  TO  3*0 
KOUNTC3  KOUNTC  ♦  1 
IF  (KOUNTC  .LT.  20)  GO  TO  60 
GO  TO  190 

C  HAVE  CONVERGED  ON  ALL  PARAMETERS  FOR  THIS  INTERVAL 
C  SAVE  OLD  CONOI TIONSt  5ET  NEW  ONES 
300  VFSAVE (I)a  VF ( I ) 

VF ( I ) a  VF2 
TFSAVE ( I ) a  TF ( I) 

TF ( I ) a  TF2 
OSAVC ( I) ■  0(1) 

0 ( I ) ■  02 
ESAVE ( I ) a  El!) 

E ( I ) ■  E2 

OELO ( I ) »  avz  •  TIMS ( I ) 

OELH ( I ) ■  I  ELH  •  TIMS(I) 

RETURN 
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ENO 

#OECK  P 

FUNCTION  PASF  (T *E) 

C  Ta  TEMPER.  («» ,  E"  FRACTION  EVAPORATED 
C  PASF  a  FUEL  VAPOR  PRESSURE  (PSJAi  FOR  JP*t  JP5/JPB 

COMMON  /  INPUT  /  KFUEL»nEO»6AP,PPH, TITLE »8) 

OIMENSION  CKl(7,*),  CK*(T.*)t  ET*B(7)  ‘ 

DATA  ETAR  /  O.t.l.  .3.  .St  .7t  .9  tl.O  / 

It  CK1  /  O.t  Ott  Ott  O.t  O.t  0»t  O.t 

2  155810. .386390. .585230. .817550. t 1321200. .3175*00. t 10*97000. t 

3  O.t  O.t  O.t  O.t  O.t  O.t  O.t 

*  *0*97.  .136750.. 286*30.. 60*200.,  1399600. 1 70**100. 1 77660000.*' 

St  CK2  /  O.t  O.t  O.t  O.t  O.t  Ott  O.t  ^ 

6  7«l*.8,85*8.*,906o. 7.9*8* .0. 1 0083. . 1 11 78. , 12670. , 

7  O.t  O.t  O.t  O.t  O.t  O.t  O.t 

8  *816. .6269. ,7151.. 80*2. .90*5. .1097*. .13839.  / 

C 

IF  (KFUEL  .ME.  2  .AND.  KFUEL  .NE.  *1  80  TO  150 
C  IF  (T  .LT.  0  t  ARGUMENT  IS  ("PS) •  FINO  AND  RETURN  CORRCS.  TEMPERATURE 
PSTATa-T 
00  50  Jal.T 
1»J 

IF  (E  •  ETAB(J) )  60.90.50 
50  CONTINUE 
GO  TO  70 

60  IF  (1  .£0.  1)  I»2 
70  Kal 

"0  If  (OSTAT  .LT.  0.)  GO  TO  83 

PASFa  CK2d  tKFUED  /  ALOG  (CK1  ( I  tKFUEL)  /  PSTAT  > 

GO  TO  8* 

83  PASFaCKl (It KFUEL)  •  EXP(  -CK2 ( I tKFUEL)  /  T  ) 

«*  IF  (K)  110.100.85 
85  PSAVEa  PASF 
J«I 

1»  I  -  1 

Ka  -1 

GO  10  80 
90  KaO 

GO  TO  80 
100  RETURN 

110  PiSFa  PASF  t  (PSAVE  -  MSF)  /  (ETaB(J)  •  ETaB(D)  •  (E  -  ETABII) ) 

GO  TO  100 

150  WPITF  (61.1000)  KFUEL 
1900  FORMAT  (25H0PASF  CANNOT  HANDLE  FUEL*  15) 

CALL  EXIT 
ENO 

FUNCTION  VAPCPF  (T) 

C  Ta  TEMPER.  («) .  VAPCPFa  CP  FOR  JP*t  JP5/JP"  FUEL  VAPOR 
COMMON  /  INPUT  /  KFUELtOEQtGAPtPPH.TITLE (0) 

IF  (KFUEL  .EO.  ?)  GO  TO  50 
VAPCPFa  .180  t  ,000565  •  T 
GO  TO  100 

50  VAPCPFa  .069  ♦  .000530  *  T 
100  RETURN 
ENO 

FUNCTION  VAPMUF  (T) 

C  Ta  TEMPER.  <R).  VAPMUFa  MU  FOR  JP*t  JP5/JP8  FUEL  VAPOR 
COMMON  /  INPUT  /  KFUEL.OEO, GAP, PPH. TITLE (»> 

IF  (KFUEL  .EO.  2)  GO  TO  50  1 

VAPMUFa  808. E-9  ♦  7.6*E-9  •  T 
GO  TO  100 

50  VAPMUFa  2*8. £-9  ♦  6.31 E-9  •  T 
100  RETURN 
ENO 

FUNCTION  VAPKF(TtW) 

C  Ta  TEMPER.  (Pit  VAPKFa  K  FOR  FUEL  VAPOR 
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C  V*  MOLECUL-  BTT5KT 

OIMENSION  MTABI4) rATAR(*),flTAB(4>, TASK (4t 
OATA  WTAB/SO.,  100. •  15<).,  300.  /.  NT AS  /A/j 

1  AT  A®  /  -.fll)6362,-.00635*,-. 0062*4,-. 006010  /, 

2  RTAB  /  .0000297,. 0000273.. 0000250,. 0000235  / 

C 

00  10  1*1 .NTAB 

10  TABMI)*  ATAB ( I )  »  BTAB(I)  •  T 
VAPKF*  TAB  ( W ,MT  AB , TARK.NT AB i 
or TURN 
END 

FUNCTION  SGFCT  (T.SG60R) 

C  SG6UR  *  SG  RESIDUE  AT  60  DEG  F 

C  T*  TEMPER.  (R),  SGFCT*  SG  FOR  JPA  AnO  JP5  LIOUIO  FUEL 

SGFCT*  SG6AR  «  .20*  -  .0004*  T 
RETURN 
END 

FUNCTION  SGRFCT  f E ) 

C  E*  FRACTION  EVAPORATED.  SG60*  SG  AT  60  OEG  F 
C  SGRFCT*  SG  RES10UE  AT  6n  OEG  F  FOR  JPA.  JP5/JP*  LIOUIO  FUEL 
COMMON  /  INPUT  /  KFUEL.OEO.GAP.PPH. TITLE (81 
OATA  SG604/  .775  /  *  SG40S8  /  .806  / 

SG60*  SG604 

IF  (KFUEL  .NE.  At  SG60*  SG60S8 

SGRFCT*  1.076  /  <  (1.076  /  SG60  -  1.)  •  (l.  -  .67  •  E)  »  1.  ) 

RETURN 

ENO 

FUNCTION  VAPOF  (T.Pt 

C  T*  TEMPER.  (R)  •  P*  STATIC  PRESSURE 
C  V1P0F*  OIFFIISIVITV  FOR  HEPTANE -OXYGEN 

VAPOF*  2.0*3  /  P  •  (T  •  (T  •  1.1319E-9  ♦  1.973E-6)  -  9.815E-A) 

RETURN 

ENO 

FUNCTION  VAPMF  (E) 

C  E*  FRACTION  EVAPORATEO.  VAPMF*  MOLECULAR  MEIGHT  OF  JPA.  JP5/JP8 
C  FUEL  V*POM 

COMMON  /  INPUT  /  KFUEL. dEO, GAP, PPM, TITLE (8) 

DIMENSION  FTAB(71«  TAHMVI7.A) 

OATA  ETA*  /  O.t  .1-.  .3.  .5,  .7,  .9,  1,0  /»  NTAB  /T/, 

1  TAB«V  /  0.,  0..  0.,  0..  0.,  0.,  0*. 

2  1 AB.  1 2. 163. 29,. 69. RB. 175. 0A.1B2. 25,194. 86,21 1.07, 

3  0.,  0.,  0.,  0.,  0.,  0.,  0., 

A  93.26,  114.60,  126.61,  138.16,  150.59,  173.21,  204.76  / 

C 

VAPMF*  TA*(E.  ETAS,  TA*mV(1, KFUEL),  NTAB) 
return 

ENO 

FUNCTION  VAPLMF(T) 

C  T*  TEMPER  (R),  VAPLMF*  LATENT  MEAT  OF  VAPORISATION  FOR  JP4,BTU/LB 
C  ALSO.  JP5/JPB 

COMMON  /  INPUT  /  KFUEL, OEO, GAP, PPM. TITLE(8) 

IF  (KFUEL  .EO.  2)  GO  TO  50 
VAPLMF*  0. 

IF  (T  .LT.  1092.88)  VAPfEn  13,20  •  (1092.88  •  T)  *«.39 
GO  TO  100 
50  VAPLMF*  0. 

IF  <T  ,LT,  1210.45)  VAPLMF*  10.75  *  (1210.45  -  T)  **.41 
lOOf  RETURN 
ENO 

FUNCTION  CPFCT  (T.SGR60) 

C  T*  TEMPER  (R).  CPFCT,  CP  FOR  LIOUIO  JPA,  JP5/JPB 
C  SGH60*  SG  RESIDUE  AT  60  DEO  F  FOR  JPA 

CPFCT*  (  ,181  *  ,00045  •  T)  /  SORT (SOR60) 

RETURN 

ENO 

•DECK  01 
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overlay  <imp*CT;TVo)' 

PROGRAM  TSTRIG 

c 

c  program  to  calculate  trajectories  for  pneumatic  Impact  atomizer 

c  MITH  uniform  V  ano  t  fiflo.  fuel  spray  PERPENDICULAR  to  air 

C  stream.  ••••••••••  TEST  rig  •••••••••• 

c 

c 

COMMON  /  TRAJ  /  vfuel.tfuel.tfue-f.sgf.fmu.rmof.ps.pt.ts.tt. 

I  RMOAIR.AIRMU.G.VAIR.SMOl 

cccccc 

♦  «  XMAX ,  YHAX 

COMMON  /  INPUT  /  KFUEL.OEQ.GAP.PPH,  TITLE(fl) .VGAS.TGAS 

c 

COMMON/  TABLES  /  T1(7),VISAIR(7)»T?(2,4) .SGFUEL (2,4 ) ,T3(12,4), 

I VISFUL f 12.4) .NTA81«NTaB?«NTAB3.NFuELS 

common  /  tables  /  tsiioi .sgtarsiai .srftnsiio.a) .ntabst.ntabss. 

I  DUSMO(S) ,NOIASM,RNTAB(7) ,FT AB ( 7) .NTARRF, TaR ( 1 1) ,PRAT A8 ( 1 1 ) *NT ABA 
COMMON/TABLES/  TAB (8) .TkTAB(B) • NTABB. T9R< 10) .CPTAfl ( 1 0) • NTAB9 
DIMENSION  OIA (5) 

COMMON  XL1 .XL2.D1A1 .OIA2.SLOPE1 .SLOPE? 

COMMON  NXXXX.AXISMJUO)  .AXISMN(lfl)  .  X  X  X  X  ( I  0  ) 

COMMON  /  OEVAP/  DUMMY<2fl) ,0(5) .T^iS) ,VF(5) .VRELI5) .  RN(5). 

1  C0(5) .0RAGI5) .FN(5) .  CP (5) .OELQ (5) .SO (5) .FRHo (5) .OELTF (5) • 

2  TIMS (5) .FMASS (5 > .ALPHA (5 ) .DELV (5) .E (5) .OX. 8 (5) »VfSAVE(5) .TFSAVEI5 

3  ) .OSAVE (5) .ESAVE (5) .OSTART (5) . SGSG60 ( 5) .SG60 (5) .OELM(S) 

A. OPTION, SPACE (8) 

CCCCCC 

♦  .MST(S) ,EU(5) 

c 

c 

C  INPUT  DATA 

c 

C  KFUELa  FUEL  TYPE  (1.2.3. A) 

C  TFUELM*  FUEL  TEMPfRATURF  (RJ 
C  P3»  AIR  PRESSURE  (PSlA) 

C  T3Ra  AIR  TEMPERATURE  (R) 

C  PPM.  FUEL  PLOW  RATE  (L8/MRJ 

C  OELPa  OELTA  PRESSURE  (PSIA) 

C 

C 

2  TI TLE ( 8) ■  10H ( TEST  RIG) 

WRITE  (61,1010!  TITLE 
DPTIONaO. 

CCCCCC 

REAO(60,1201)  VaG,KFUEL,TFUELR,P3,T3R,PPH,0ELP.TGaS,0IAA 
1201  FORMAT (FR.fl.II .7F10.2) 

CCCCCC 

WRITE  (6l  ,120?)  VAG,KFUEI.»TFUELR,P3,T3R,PPH,riF.LP.T0AS,0lAA 
1292  FORMAT  (UNO  VA  GUESS  ,  5H  FUEL. AX, 6M (FUELP  .BX.2MP3  .7X.3HT3R  , 

I  7X,  3HPPM  ,  6X.AH0ELP  .6X , AMTGAS  .6X.AH0IAA  t  I  X  ,F  10, A  ,  1 5.7F 10.- ) 
C  GEOMETRY  PARAMETERS  (IN) 

READ  (60,1?1C)1-'JETIO,OIA1  ,0IA2,0IA3.XLi.XL2.YGAS.FJET00 
WRI(E(61,1?90)FJETI0.DIA1.0IA2,DIA3,XL1»XL?,V3AS,FJET00 
NXXXXa  0 

IF  (0IA2  .NE.  0.)  GO  TO  190 
C  READ  TARLF  OF  X  VS.  MAJOR  AXIS  ANO  MINOR  AXIS 
NXXXXa  0IA1 

REAO  (60,1210)  (XXXX(I).Ial, NXXXX) 

WRITE (61, 1370)  (XXXX(I),IaI.NXXXX) 

1370  FORMAT  (IH0.10FI0.3) 

READ  (60.1210)  (AXISMJd)  ,I«)  .NXXXX) 

WRITE (6 1,1370)  (AXISMJI I) .Ial.NXXXX) 

REAO  (60,1210)  (AXISMN(T) «Ial, NXXXX) 

WRITE (61, 1370)  (AXISMN(I) .Ial,NXXXX) 

DUMMY (1) a  3600. 


V 
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DO  140  I*IT«JXXXX 

IF  <4Xt SMN ( 1 )  ,EO.  0.)  *X1SMN(T)»  AX1SMJ ( 1 1 
DUMMY  (2)  a  AX  ISrtN  ( I )  •  AXlSMJd) 

IF  < DUMMY  (?)  .GT.  DUMMY(l))  GO  TO  140 
DUMMY ( 1 )  a  OUMMY  (2) 

J«I 

140  AX  I SMJ ( I ) *  SOHTlDUMMYl?) ) 

0IA1«  A X I SMJ ( 1 ) 

0IA2«  rxtSMjui 
01  A3*  A  X I SMJ (NXXX  X ) 

XL  1 ■  XXXX(J) 

XL?«  X  X  X  X  ( NX  X  X  X  )  -  XL' 

DO  1SQ  l.l.NXXXX 
XXXXd'a  XXXXd)  /  12, 

ISO  AX1SMJI  I )  a  AXlSMJd)  /  12, 

190  CONTINUE 
CCCCCC 

REAO<60.1?10)X1STRT,X?STRT,THETST,8AP,CDGAP,XMAX.YMAX 
MR  I TF <61. 1*00)  X1STRT, X2STRT, THETST. GAP, COGAP, XMAXtYMAX 
1400  FORMAT  (lH0.6X.*HXLtP,6X,4HVLIP,2X,BHTHET  LI P»7X . 3MGAP.5X . 5HC0GAP , 
1  6X.AHXMAX ,6X,4HYMAX  /  IX,  8F10.4  ) 

OEO«  OIA3 

C  RATBUPa  CONSTANT  FOR  BREAK-UP  LENGTH 
RATnUPb  2.40 
PI«  3.1*159 
PI04«  PI».?S 
PIOS76*  PIO*/  144. 

ZRsPIO4«(0IA1«»?-FJETOO»*2) 

C  CONYEHT  n< A METERS,  LENGTHS  TO  FEET 
0 1 Al«  OIA1  /)?. 

OI*2a  DIA2  /) 2. 

01A3.  0IA1  /12. 

OIA4a  0IA4  /12. 

AGAPa  COGAP  *  PI  •  DlA*  *  GAP  /  12. 

XL1«  XL1  /) 2. 

XL2»  XL2  /' 2. 

TFUELFm  TFUELR-  *59.69 
T3Fb  T3P-  *59.69 

C  FUEL  SPECIFIC  GRAVITY  (OMLS) 

SGFb  TAP ( TFUFLF , T2  d .KFUEL) ,SGFUFL i 1 ,KFUEL) .NTA82) 

SG60F  »TAR(60..TPd, KFUEL) .SGFUEL < 1 (KFUEL) *NTAB2) 

C  FUEL  VISCOSITY  (CENTlSTOKESl 

F’*U«  TAH  (TFUELF  ,T3  <  1  •  KFUEL)  ,V1SFUL  <1 , KFUEL)  ,NTA831 
C  AIR  VISCOSITY  (LB/SEC/FT) 

AMUm  T .‘.8  (T3F.T1  «V'ISAIP,NTA81 ) 

MRITE  <61,1140)  SGF.FMU.AMU 
RHOAa  2.69917  •  IP 3  -OELP)  /  T3R 
RMOFa  62.428  a  SGF 
C  CALCULATE  GUESS  FOR  V  (AIR). 

CCCCCC 

VAlHGaVAG 

CCCCCC 

IF (VAG.EQ.O.)  VAIRGaSQRT (9266. aDELP/RHOA ) 

KNTVAaO 
GAMMA  si  ,4 
C*a  GAMMA-1. 

Cl«  C**.S 

C2a  GAMMA/  C4 

C3a  GAMMA  •. 5 

CIS*  (GAMMA  ♦  1.)  /  C* 

C5»  CIS  •  .5 
C16»  Cl5  -  1. 

Zl«  *53.59/  1728.  /  2. 5***3 
Z2a  PI0S76*FJET10 '*a2  *3600. 

Z3»  Z8  •  3600.  /  144. 

Z*a  2.5*  •! 2, 
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"STY  ,Y  *f  JETlo'i'  Y.'ii 

ZS»  39.37F-6  /12. 

OX*  .02  /\7. 

XFNO*  *L1  »XL2 

SLOPE 1*  (01*2  -  01*1)  /  XLl 

slope 2*  (ni*3  -  oi*2i  /  xl2 

27a  .2aPPH/36Q0« 

Z9*KM0F»PT0*/I.5 

G*32.174 

Z't*G*GAMWAa53»3S 
211*  FJFTIfla.5 
VFUELa  PPM  /  Z2  /  RHOF 
C  SURFACE  TENSION  (DYNE/CM) 

00  310  1*1 .NTAB5S 

310  OUMMY ( I ) »  T*8 ( TFUELF.TS.SRFTNS  flail  »NT*BST) 
TAUa  TAB(SG60F  t SGTAB5.0UMM Y.NT AB5S ) 

ETAH*  FMIJ  •  SGF 
RHOG»  Z1  •  PHOA 
VTa  2*  •  VFUEL 
KPHINTaO 


BEGIN  CALC.  «ITH  GUESSEO  VALUE  FOR  V  (AIR) 

300  KNTVAa  KNTVA. 1 

QMAa  RHOA  •  Z3  •  VAIRG 
QMRa  OMA  /PPM 
VRa  VAIRG  /  VFUEL 

SM01 •  SMOF  (TAU.ETAR.RHOG.QMR.SL.VT.VR; 

2714-0  NT  ASAN  ,2  .ON  LEOOM  NOITASIMOTA  C 
) UAT ( TROS  ») 1 ( YMMUO 

/  RV  /  274000.  •  FGS  *  UMF  *  1 1  ( YMM'JO (  TROS  •  OITEJF  *  GEOS.  alDMS 

)  RMO  1 


WHITE  (A1.U10)  VAIHG.  KNTVA  ,SMD1 
C  INITIALIZE  for  CALCULATIONS  THROUGH  The  fuel  tube 
00  320  1*1.5 
01 A  ( I )  •  OIASMnin*  SM01 
D  ( 1 1  a  0 1  A ( I )  •  Z5 

C  DROPLET  mass.  CONSTANT  throughout  fuel  tube, 
FHASS  ( I )  af)  ( I )  **3*Z9 

cccccc 

W( I)aFMASS(I) 

CCCCCC 

WST ( I ) aFMASSI I 1 
F(I)an. 

FN(I)«Z7/FMASS(I) 

TF ( I ) a  TFUCLR 
320  VF  (I)r,  VFIJrL 

BRUPL*RATBUP»  SMOl 
XNa  BRUPL  •  Z5 
XSTART*  XN 

XFHaCT*  XSTART  ♦  Zll 
FRACTN*  0. 

TT«T3H 

PT*P3 

VAIRa  VAIRG 

DUMMY*  VAIR**2  /  TT 

FMACH2*  OUMMY  /  (Z10  -  OUMMY  •  Cl) 

C7*  1.  ♦  Cl  *  FMACH2 

TS*  T  <  /  C7 

PS*  PT  /  C7  **C2 
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rhoab  ps  /  is 

WA I  Ha  RHOA  •  ZS  /  144.  •  VAIR 

cccccc 

WTOTatfAIR 

KKmO 

RHOAJRa  RHOA 
ODUCTa  OlAHTR  (XN) 

AJHMUa  A >41) 

AOUCTa  PI 04  •  DDUCT»»? 

INTEOal 

CCCCCC 

FOaafl. 

CCCCCC 

OELTOaO. 

CCCCCC 

DP0OP0«0. 

CCCCCC 

FFM*0. 

CCCCCC 

Cl l«(A0UCT-78/144. 1/(78/144.) 

c 

C  BEGIN  CALCULATIONS  OVER  INTERVAL  OX 
C 

CCCCCC 

330  CONTINUE 

331  C7«  l.  ♦  C1«FHACH2 
CCCCCC 

IF(KPRInT.NE.O)  WRI TE (61 *2500) 

CCCCCC 

2500  FORMAT (1H0> 

CCCCCC 

BIGKaC7/(l.-FMACH2> 

CCCCCC 

FMACH2*FMACH2*(i.*BIGKa(-2.«Cll*2.*FFM/MTOT*DELTO/TT-2,*DPOOPO)  1 

335  FMACRa  SORT (FMACH21 

336  KKal 

TSa  TT/C7 
PSa  PT/  C7««C? 

VilHa  FMACH*  SORT(Z10  •  T5) 

RHOAIRa  2.69917««S/TS 
IF  (KPRINT  .FO„  01  GO  TO  337 
DUMMY ( 1 1 ■  XN  •  12. 

WRITF  (61.1250)  TS.PS.TT.PT. FMACH  » VAIR.DUMMY ( I ) 

337  IF  (XN  .GE.  XEN(1)  GO  TO  500 
TF.MPRa  RHOA  I R/A I  RMU 
RNAIRa  VAIR  *DOUCT  •  TEMPS 
C  FRICTION  FACTOR  F 

IF  (0NAIR  .LT.  RNTA0  (1)1  GO  TO  340 
Fa  TAB(RNAIR.RNTA8  .FTAR  .NTABRF) 

GO  TO  350 
340  Fa  16./  RNAIR 
350  TEMPAa  RHOAIR  /  9266. 

CPA  I Ra  UR(TT.T9R.CPTAB.NTAB9) 

oo«o. 

TOTORGaO. 

FL»0, 

CCCCCC 

F0*«0. 

CCCCCC 

FFMaO. 

CCCCCC 

NCCLASaO 
DO  360  I«1 .5 

CCCCCC 

IF(E(I1.GT.. 989999)  GO  TO  3*0 
CALL  EVAP  (INTER. I) 
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OlVci  ■ocf  fTTS 

ccrccc 

OQs'jQ*  FN  (I ) *OELO(I • 

totorgstotorg  ♦  FN<i)*oRAGd)  •  1Ims<I> 

FL  ■  FL  ♦  VPFL(t)  *  TIMS(I) 

cccccc  * 

FONsFO**?.* ( 1 .-VF ( I) /VATR)  #OELN< I) *FN( I) /WTOT 

CCCCCC 

FFMsEFM»DELMd)«FNd) 

3*0  CONTINUE 
inters? 

C  ADJUST  DRAG  and  heat  FOR  FRACTION  OF  FUEL  INVOLVEO  , 

TOTORGs  TOTORG  •  FRACTM 
DOs  DO  •  FRACTN 

CCCCCC 

cccccc 

FONsFONSFRACTN 

cccccc 

FFHsFFM«FRACTN 

C'-.CCCC 

If (noclas.gt . o)  flsfl/noclas 

cccccc 

NTOT*NTOT*FFH  * 

WAIHSIs  AOUCT  •  RMOAIR  «  FL 

XNPls  XN  ♦  DX  '/V 

IF  (XNP1  ,LE.  XENO)  GO  TO  380 
XNPls  XENO 

380  OOUCTPs  O'AMTR  IXNP1) 

ADUCTPs  Pf04  •  OOUCTP**? 

OAHEAr  AODCTP-  AOUCT 
C6*  FMACH? 

Cl i"  DARE A  /  AOUCT 
Cl?s  4.  •  F  *  OX  /  OOUCT 

Cl3s  TOTORG  /(C3*  PS  «■  AOUCT  *C6)  /  1**.  *Cl? 

CCCCCC 

OELTOs-OO/STOT/CPAIR 

CCCCCC 

OPOOPOS-C1*C6*(OELTO/TT«C13«FON) 

C  SET  AIR  PARAMETERS  AT  ENO  OF  INTERVAL 
PTs  PT  *(1.»  OPOOPO) 

CCCCCC 

TT»TT*OELTO 

C  ADJUST  FUEL  PARAMETERS  FOR  FRACTION  INVOLVEO 
CCCCCC 

FRACTls  1. 

IF  (XNPl  ,i.T.  XFRACT)  FRACTls  1.  -  II.  -  (XNP'I-ASTaRT) /Zl  1 )  ••? 

TEMPJ.  FRACT1  -  FRACTN 

CCCCCC 

DO  401  1.1.5 

CCCCCC 

IF(ECI) .GT.. 989999)  GO  TO  401 

TFUls  CFRACTN*TF«I)  ♦  TEMP1«TFUELR  )/  FRACTI  , 

SGRESD*  SGRFCT  (ESAVE(D) 

CG(I) ■  SGFCT  CTF  C I) «  SGRESO) 

SG60 ( I ) s  SGFCT  (519.69»SGRES0> 

CCCCCC 

W?«  W  f I )  -  OELH(I)  •  FRACTN 

CCCCCC 

IF(*?.LT,l.E-30)  W?sl.E-30 

0II)s(6,*  w?  /  PI  /  SGd)  /  62. 4 ?8)*s. 33333 33333 

CCCCCC 

IF(Od).LT.l.E-lO)  Od)sl.E*10 

E«I)s  I,  -  (  Od)  t  OSTART(I)  )**3  «  SG(I)  /  S060 ( I > /  SGSG60tI) 

CCCCCC 

IF <Ed)  .GT..99)  Ellis. 99 
IF  (Ed)  .LT.  0.)  E(I)»0. 
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*ou  vnirr-TFJ»rcTN*vF<n  «  tempi •vfoei — jttratti 

cccccc 

W(I)aW2 

crrrrr 

EW(I)*1.-W(I)/WST(1) 

CCCCCC 

401  CONTINUE 

405  IF  (KPRINT  .EO.  0)  60  TO  410 
WRITE  (61,1260)  TF 
WPITF  (61,1 P70)  VF 

CCCCCC 

WR1)E;61.1350)  E 
1350  FORMAT (4M  E  «  SF15.5) 

WRITE  <61  »2*0if)  EW 

2402  F0RMATI4H  Ewa  5F15.5) 

WR1TE(61«?401)  01* 

2401  F0HH4TI4H  0  a  5F15.5) 

WRITE (61 #2403)  w 

2403  FORMAT (4H  W  a  5c.  15.5) 

CCCCCC 

410  XNa  XNP1 

A  IRMlIa  TAR  (TT  -459.69.T1.VISA1R.NTAR1) 

OOUCTa  OOUCTP 
AOUCTa  AOUCTP 
FRACTNa  FRACT1 
60  TO  330 
C 

C  FUEL  TUBE  CALC.  COMPLETE 

C 

C  CALC.  EFFECT  OF  6AP 

CCCCCC 

500  CONTINUE 

A6APVC*PI*0IA3*6AP/)2.*C06AP 

AGAPE*PI*0TA4*GAP/-2. 

FMGAPaFMACH 

IF (AGAPVC.GE.AOUCTPJ  AGAPVCaAOUCTP 
IF (A6APVC .6E . AOUCTP)  00  TO  502 
AGARaAGAPVC 

CCCCCC 

FMGAP-  FMACH  *  AOUCTP  /  AGAP 
IF  (FMGAP  ,LT.  1.)  GO  TO  501 
WHITF  (61.1410)  FMGAP 
CALL  EXIT 

501  FMAWE2«  (FMACH  ♦  FMGAP)  **2  •  ,25 

DUMMY ( 1 ) a  (1,  ♦  Cl  *  FMAVF2)  /  «1.  -  FMAVE2) 
FMGaP*  EXP  (OUMMYO)  *  aLOGIAOUCTP/AGAP)  )  •  FMACH 

C7»  1.  ♦  C)  *  FMGAP**2 

TSa  TT  /  CT 

PS«  PT  /  CT**C2 

CCCCCC 

VAlRa  FMGAP  *  SQRTIZIO  *  TS) 

502  CONTINUE 

PRINT  1250. TS.PS.TT.PT. FMGAP. VAIR 
IF(UIA4.LE.0IA3«6.*GAP/12.)  GO  TO  503 
QGAP*RHOAIR*VAIR*VAlR/9?66. 
CPIDa(l.-l./(AGAPE/AG*PVC)**2.) 

ETA0a.5 

OPTaCPIO* ( 1 ,-ETA0)*QGAP 
PTaPT-DPT 

PSaPS»CP10*ETA0*0GAP 
VA IRaV AIR* AG APVCZ AGAPE 
FMGAPaVA IR/SORT (Z10*TS) 

503  CONTINUE 

PRINT  1250. TS.PS.TT.PT. FMGAP. VA JR 

CCCCCC 

C  CHECK  IF  GUESSED  V(A1R)  WAS  O.K. 


uu  o 


TAELE  XXII 


CCONTD) 


"oelpcVpi  -  PS 

WRITE  (61.1220)  OELP.OELPC.KNTVA 
IF  ( ABS (OELPC-  OELP)  .LF.  ,f20»  OELP)  GO  TO  520 
C  NOT  WITHIN  TOLERANCE 

510  VAIHG«  VA1»G  •SORT(OELP/OELPC) 

IF  (KNTVA  ,LT.  10)  (50  TO  300  * 

WRITE  (61  « 1100)  KNTVA 
C»LL  EXIT 

520  IF  (KPRINT  ,NE.  0)  GO  TO  550 
KPWINT«1 
GO  TO  510 

t 

CALC.  AVERAGE  FUEL  VELOCITY  ANO  TEMPERATURE 


530  VFUEL* ( VF ( , ) ♦ VF ( 2) ♦ VF ( 3) ♦ VF  < 4) *VF ( 5)  )».2 
TFUEL*(TF(i)«TF(?)»TF<3) *TF(4) *7F<5)  )A.2 
WRITE  (61,1300)  F 

WRITE  (61 ,1250)  TS.PS.TT.PT.FMGAP.VAJR 
OMRs  HAIR  /  PPM  •  3600. 

OCO*  .006322R*  WAIR  /P3/  AOUCTP  •  SOOT  I  T3R  /  OEL"  •  PS) 
WRITE  (61.1515)  WAlR.QCD.OHR 

IF  (Ell)  .GT.  .01)  GO  TO  580 
570  TFUELF«TFUEI.-4S9.69 

SGFaToB ( TFUELF . T2 ( 1 . KFUFL ) . SGFUEL ( 1 . KFUEL) . NT AB2 ) 

FMUa  T AH (TFUFLF.T3I1. KFUEL) .VI5FUL ( 1 .KFUEL) .NTAB3) 
RH0F*62.A?8*SGF 
00  560  I  * ) • NT  AH5S 

560  OUMMY(I)a  TAB  I TFUELF.T5.SRFTNS ( 1 . 1 ) .NT  AB5T) 

TAU»  TAB (SG60F  . SGT AR5 .OUMMY , NT AB5S) 

ETARa  FMU  •  SGF 
RmOU*  Zl  •  RHOAIR 
VTa  Z*  «  VFUFL 
VRa  VAIR  /  VFUEL 

cccccc 

PPHaPPH*(l.-(EWIl)«EW(2)*EW(3)«EW(A)*EW15) >»,2) 

SL»  PPM  /  (3600.  *  HMOF  •  VFUEL  •  PI  »  OIAA)  *  ZA 
SLMaSL/Z4/3.281E-Y 

SHOla  SMQF  (TAU.ETAR.RHOG.QHR.SL.VT.VR) 
FIIELP<RH0F«VFUEL**?/9266. 

CCCCCC 

WRITE(61,)230)  VFUEL. TFUFL, VAIR, TT.FUELP.5M0l.PPH.5LM 
C  CALCULATE  TRAJECTORIES 

IFIXMAX.GT.O.)  CALL  TRAJl (01 ASMO) 

GO  TO  1 
580  SUMa  0. 

SUM  I  a  0. 

00  590  la] .5 
SUMa  SUM  .  WIT) 

590  SIJMla  SUM)  ♦  ( TF  ( )  >  -  TF(3))  •  W(I)  •  (CPU!  ♦  CP(3>) 
TFUEL*  SUMt  •  .5  /  SUM  /  CP <31  ♦  TF (3) 

GO  TO  570 

709  WHITE  (61,1240) 

CALL  EXIT 
1  CONTINUE 


) 


(1H1.RA10  /) 

(21 MONO  CONVERGENCE  after  .IS.IOHITERATTOnS 
(  8M0V (AIR) ■  FI 2,3. 1 1 0 ?5X,4MSMO«  F6.2) 

(4H0SG*  E12.4.7H  (OMLS)  .4X.10HVISC  FUEL"  E12.4.12H  CENTI 

,4X, 10HVISC  AIR  ■  E12.4.10H  LB/SEC/FT  ) 

(llo,7F10.2» 

(8F10.3) 

(  6H0DELPa  F10.4.4X,  6H0ELPC*  F10.4.4X.  6HC0UNT"  13) 


1010  FORMAT 
1100  FORMAT 
1110  FORMAT 
1140  FORMAT 
1STOKES 
1200  FORMAT 
1210  FORMAT 

1220  format 

CCCCCC 

1*30  ro«NnT(7H0VrUEL«  F6**t2X#6HTFUEL»  F6f2t*Xf5HVAlR«  F 6*2t2Xv3UTT« 
CCCCCC 


t 


i 
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♦Tfi.l  .ZXIWOF  CPa  F6 .?  i?X  TT,T2;?*.iHPPHT-n  0  .*7Zfi 

•  AHSLM*  F7.3  ) 

12A0  FORMAT  (26M0MACH  NO  I TERATION  FAILURE  ) 

1 250  FORMAT  (AH  TS«  Ffl .2 ,3* ,3HPS«  F8 .A, 3* ,3HTT*  F8.2.3X.3HPT*  FS.A.3X, 

1  ?HMa  F8.5<3X,SMVA I Ms  FR<2<3X<AHX IN*  F3.5) 

12  3  FORMAT  (AH  TF«  5FJ5.2) 

1270  F( RMA T  (AH  VF»  SF15.2) 

1280  FORMAT  (SHnFUEL  <*X,6hTFUELR  <RX<?HP3  <7X<3hT3R  <7X<3HPPM<6X<AHOEL 
IP  <6X<AMT8AS<6X<AH0IAA  /  I5.7F10.A1 

1290  FORMAT  (10(1. AX <SH JET  10  <6X<AH0!AI  ,6X,AH01A2, 6X<AH0IA3<7X<3HXL1  <7X 
1  <3HXL2<6K<AHVGAS<SX<  SHJETOO  /  BFlo.A) 

1300  •"•.'K*AI  (3M0£a  5F15<5) 

1 A10  FORMAT  (13H0PAP  MACH  NOa  FtO<S1 

15)6  FORMAT  (ISMOAIR  FLOP  RATEa  FH,5<Am  PPS<5X< 1 7H0t 5CHARGE  COEFF.a 
1  FB,  A  <5X , I5HA IR-FUEL  RATIO*  FjO.A) 

ENO 

•OECK  T 

SUBROUTINE  TRAJ1 (0IASM01 

PROGRAM  TO  CALCULATE  TRAJECTORIES  FOR  IMPACT  INJECTORS 
RITM  constant  V  ANO  T  F IELO,  FUEL  SPRAY  PERPENOICULAR  TO  AIR  FLOP 
*****  •••••  TE5T  RIG  •••••  •**•• 

COMMON  /  TRAJ  /  VFUEL<TFUELR<TFUFLF<50<FMU<RH0FUL<P5<PT<T5<TT< 

CCCCCC 

1RH0AIR<AMU<G<VAIRST<SM0<XMAX<YMAX 
COMMON  /  INPUT  /  KFUEL<OEQ<GAP<PPH<TITLE (81 .VGAS.TGA4 
COMMON  /  QFVAP/  DUMMY(Xn) ,U,5) ,TF(5l ,VF<5) .VREL'Sl  .  RN(5>< 

1  CO  ( 5)  <  OR  AG  (5)  <FN‘f)  •  CP(3)  <0ELQ(5)  <5G(5)  <FRM()(Si  <OELTF  (5)  * 

2  TIMS  (5)  .FmaSS(S)  <A|  (-HA  (5)  <OELV  (5)  <E(5)  .OX  ,M  (5)  <  VFSAVE  (5)  <TFSAVE(S 

3  ) <U5AVE (5) .ESAVE(S) <0START(5>  <£8586^(5) <5G60(5) ,0ELM(3) 

A  <OPTION<VAIRH< VAIRV<5INT<C05T<0UM1<0UM2 

CCCCCC 

♦  *  VST (5) <EV (5) 

COMMON  /PLOTHG  /  KPLOT 

C 

OIMENSION  X(I02<5) < Y( I0?<5) <NNN(5) <LABELS(6) <0IA5M0(5) <0IA(5) 
OIMENSION  LABEL  F (A) 

CCCCCC 

OIMENSION  ORO ( 1 0?<5l  <EVP<I02<5I <TTF(10?<5) <VEF (102*5) 

C 

DATA  LAOELF/  10H5MELLOYN  H  .10HJP5— JP8  <10HJET  A-l  <3HJPA/ 
DATA  L*BEL5/  RH  0  -  20,RH?0  -  A0<  8MA3  -  60<  »H60  »  80* 

1  RM80  -  100,  10M  /  VOLUME  / 

C 

OPTIONal, 

00  I  :al,5t0 
X  ( I ) aO  j 
3  Y(I)nO. 

C  CONSTANTS  FOR  CALCULATIONS 
5I«  .01 
ELIM*  .96 
S*SI/l2. 

0Xa5 

C0N9a  39.37E-6  /I2. 

C  CALCULATIONS  BEGIN  *••••*•• 

C  DEFINE  INITIAL  (XX, YY)  ANO  VAIR  (DISTANCE  IN  INCHES) 

XX»  5.  •  $MD  •  C0N9  •  1?. 

VYa  o. 

VAlRHla  0. 

VAIRVla  VGA? 

TT*  TGAS 
VAIR5T*  VGAS 

C  PS  15  OK.  CALC.  PT,  T$ 

OUMMa  VGAS**?  /  TT 

F’IACH2*  OUMM  /  (2*03.076  -  OUMM  •  .2) 
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C7»  lV"  .2*  FmXCm? 

TS*  TT  /  C7 
PT»  PS  •  C7»*3.5 
THETAI*  0. 

ANGLTMb  1.56 
VELLIM*  l.o 
XLIM!T«8. 

CCCCCC 

XLIMITbYMAX 

CCCCCC 

YLIHIT*XMAX 
SINT  l »5IN ( TMET*I ) 

COST! *COS( THETAI) 

MAXKbO 

00  150  I«I*5 
C  DIA  TS  IN  MICRONS 

01 A ( I ) b  OT»SMO ( I )  •  SMO 
C  0  IS  IN  FEET 

D  ( I )  •  DIA ( I )  «  C0N9 
E 1 1 ) •  0. 

CCCCCC 

E»(1)*0. 

CCCCCC 

W ( I ) *0 ( I) ••3*RH0FUL«3.1*159265/4./I .5 

CCCCCC 

wSTIT)bW(I) 

vf(h»  vfufi. 

TF(I)b  TFlJFLP 
INTERal 
THET*«  THFTA1 
VAlHHa  VAT  PH] 

VAIHVa  VAIPV1 

si-:t*sinti 

COST  *C0ST1 
X(1  tU*XX 
Y ( I  *  T ) *YV 

CCCCCC 

0«0(1,I)b0(I)/C0N9 
FVP  (’.Dan. 

TTF (1*1) aTFuELR 
VEF(1»I)bVFUFL 

CCCCCC 

KOVERal 
KOJNTa  1 
NOaO 

100  KOUNTa  KOUNT  *1 

IF  (KOUNT  .GT ■  100)  GO  TO  110 

CCCCCC 

101  IF  (E(I)  ,LT.  ELIM)  CALL  EVAP  (INTER*!) 
IF  (INTER  .LT.  0)  GO  TO  120 

INTEP*2 
ja  KOUNT 

IF  K'O  «E0.  0)  JB  KOUNT  -  I 
X(KOUNT»I)*  X(J.I)  *SI*  COST 
Y (KOUNT 1 1) a  Y(Jtl)  *SI*  SINT 

CCCCCC 

W(l)**MI)-DCLM(I) 

CCCCCC 

EW(I)bI.-W(I)/WST(I) 

CCCCCC 

DRD(KOUNT,I)B  DID /C0N9 
EVP (KOUNT 1 1 ) «  E(I)«100. 

CCCCCC 

EVP (KOUNT ♦ I ) bEN ( I I *100. 

IF (E ( I ) .LT «  .001)  EVP(KOUNT.I)bO. 

TTF (KOUNT » I ) bTF ( I ) 
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veFuocNTrTTsvrro 

cccccc 

IF  <E(I>  .6E.  ELlM)  60  TO  118 
IF  (X(XOUNT.I)  .61.  XLlMlT)  GO  TO  119 

CCCCCC 

1F(Y(K0UNT,1) .GT.TLIM1T)  60  TO  117 
•  IF  ( Y (KOUNT ♦ 1)  .GE.  0.)  GO  TO  105 

WRITE  (61,1150)  I 
Y ( KOUnT . I ) *0 , 

105  THET A.  ATOM  (0UM1/0UM2) 

SINT.  OUM1  /  VF ( 1 ) 

COST.  DUMP  /  VF(I) 

«  CCCCCC 

108  NO.  MO  ♦  ? 

IF  (MO  .GT.  9)  NO.O 
IF  (NO  .NE.  0)  GO  TO  101 
GO  10  100 

110  KOVfcR.KOVFR, 1 

IF  ( KOVFR  .LT,  10)  GO  TO  111 
WHITE  (61,1100)  1 
KOUNT «  KOIJNT-1 
GO  TO  120 

C  COMPRESS  ino  PTS  INTO  5"  ANO  CONTINUE 

111  00  1)2  J.4, 100,2 
K.J/2 

CCCCCC 

ORP ( K , I ) .ORD ( J, I ) 

EVP ( K , 1 ) »F VP ( J, I ) 

TTF(K,I).TTF(J,I) 

VFF (F,I).VFF(J,1) 

CCCCCC 

X(K,T)«X(J.I) 

112  Y(K,T).Y(J.I) 

K0‘JNT*5n 

GO  TO  100 

CCCCCC 

117  WRITF(61.1151)  I 

1151  FORMAT (8H  DROPLET  13.19H  HAS  HIT  LOWER  WALL  ) 

CCCCCC 

60  TO  120 

118  WRITE  (61,1170)  1 
GO  TO  120 

119  WRITE  (61,1160)  1 

120  NNN(T).  KOtlNT 

IF  (MAXK  .LT.  KOUNT)  MAXK.KOUNT 
150  CONTINUE 

WRITE  (61,1180)  (I,TF(I),VF(I),0(I),E(1>«1*1«5) 

WRITE  (61  •  1  i20)  (LABELS ( 1) «LABELS(6) ,1*1*5) , (D1A (I) ,1.1,5) 

DO  158  1.1.5 
Ns  NNkiIIJ  ♦  1 

IF  (M  .67 .  MAXK)  GO  TO  158 
00  156  J.N.MAXK 

*  ORD(J.l).  0. 

TTF(J.l).  0. 

VEF(J,U«  0. 

EVP (.1,1).  0. 

X(v),I).0. 

156  Y ( J, 1 ) .  0. 

*  158  CONTINUE 

00  160  J«1 » MAXK 

CCCCCC 

WRITE (61  *  1130)  (X(J,T(«Y(JiI)»l»l»5)» (DRD ( J, I ) ,TTE ( J* I) , VEF ( J, I) 
♦  ,EVP(J, II ,1.1,5) 
lbO  CONTINUE 
C  PLOTTING 
CCCCCC 
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CALL  m:rtT<f..'lT,-3T 
170  CONTINUE 
0*1. 

cccccc 

IFlYHXX.GT.l.l.OR.XNAX.OT.l.*)  0*2 

IF(YMAX.GT.2.1.0R.XMAX.*T.2.B>  Q>4  * 

1F(YMAX.GT.4.1.0R.X  .AX.P7.5.8)  0>P 
IF (YMXXrRY. 8.1 .OR.XKAX.ftT.il .5)  0*16 

CCCCCC 

XL*  1.50*3 
YL*1.25*0 

CCCCCC  , 

DELX*XL/12, 

DFLY*YL/10. 

CALL  AXlS(O.«O.«lHX«<*l«l2.«O.<0<; .DELX1 
CALL  AXIS  (0..0..1H7.) , 30.,90.«0,«D£lV) 

CCCCCC 

VL*8.5 

10  1X0  1*1.9 

NsNNNll) 

X(N«l,I)aO. 

YIN* 1,11*0, 

X(N*?,11bOELX 

YCN*?.1)bOFLY 

CALL  LINE  IXll.Il.Yll.n.N.l.ln.I) 

CCCCCC 

XL**. 5 

CALL  SYMBOL  (XL. YL. . 10.T .0..-1 ) 

XL*XL*  .2 

CALL  SYMBOL  (XL.  YL.  .1 0,1.  ABELS  (Il.O.iS) 

XL*AL«.BO 

CALL  SYMBOL  (XL. YL.. 10.46. 0..-1) 

XL*XL*.2 

CALL  SYMBOL  ( XL  »  YL  «  •  1 0  » 9MV0LUME . n . . 6 > 

CCCCCC 

XL*XL*1. 

CALL  NUMBER«XL»YL..1.01A(11,0.,2> 

Xi. *XL*.« 

C~LL  SYMBOL  (XL.  YL.  .  1  ,7'IMICRONS.O.  ,7) 

CCCCCC 

YL*YL*.2 
180  CONTINUE 

CALL  PLOT  (0..-.5.-3) 

CALL  SYMBOL  (. 5. 10. 5. .20. TITLE. 0., 801 

CALL  SYMBOL  (1..10... 1 0.2 1H INJECTOR  TRAJECTORIES  .0..21) 

CALL  SYMBOL  ( »b.9.4. .1 0.5HFUELf  .0..5I 
CALL  SYMBOL  (l.l.V.4.,10 ,l*BELF (KFUEL) .0..10) 

CALL  SYMBOL  (2.5.9.4..10.7HFUEL  Ta  .0..71 
0UM1«TFUEL« 

CALL  NUMBER  (3«2.9.*» .1 n.OUMl .0*. 1 ) 

CALL  SYMBOL  (.5,9.2. .10.10HSTATIC  P*  .0..10 » 

CALL  NUMBER  (1.7.9. 2. .10. PS  ,n.,l)  ) 

CALL  SYMROL  (2. 5. 9. 2,. 10, 4H,  T*  ,0.,4) 

CALL  NUMBER  (S.l ,4.2, .lft.TT  .fl.,1) 

CALL  SYMBOL  ( .5,9.0 , , 10 .13HAIR  VELOCITY*  «0,«?3) 

CALL  NUMBER  (1. 8,9.0, .1 0, VAIRST.O., 1 ) 

CCCCCC 

CALL  SYMBOL! .5.8.8. .1 »4MSM0*»0.»*J 
CALL  NUMBER (l.O.B.8,.1 .SMO.O, .2) 

CALL  SYMBOL (1 ,8,8.8,.  1.7HMICR0NS,!). ,7) 

CCCCCC 

230  IF  (KPLOT  .EO.  0)  60  TO  240 
KPLOTaO 

CCCCCC 

CALL  PLOT (16., *12. 5, *31 
60  TO  250 


362 


TABLE  XXII .  (CONTD) 
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% 


p 


240  KPLOT.I 

cccccc 

CALL  PLOT(-l..ll.S.-3) 

250  RETURN 

1100  FORMAT  (4?M0 ITERATION  REACHEO  MAX.  OF  500  FOR  OROPLET  ,I5» 

121M,  CALCULATION  STOPPED  J 
CCCCCC 

1120  FORMAT (1H0,5X,48,A10,4(BX,A8,A10)/ 

♦  1HO,10X,FB.3,4(1RX,FA.3) , l X , 7MHTCRONS  / 

♦  lMO.RX,lMX,10X,lrtV*A(14X,lHX,10X,lMV)/ 

♦  2X*5 (5X, 1M0»4X*2hTF , 3X.2HVF ,2*<5he*100,2M  /)//) 

CCCCCC 

1130  F0RMAT(2X,5(F10.2<F11.2.5K  I /2X.5 (3X ,F5.0»F6,0tF5„0.F5.0.2H  /  )) 

1150  FORMAT  (AM  OROPLET  13 » 1 RM  HAS  HIT  UPPER  WALL  ) 

1160  FORMAT  (Am  OROPLFT  13, 19H  HAS  HIT  RIGHT  WALL  > 

1170  FORMAT  (AH  OROPLET  13.15H  HAS  EvAPORATEO  ) 

1100  FORMAT  (26H0L AST  OROPLET  CONOITTONS—  / 

1  6X , AHOROP , 5X  »?HTF , 1 3X ,2HVF , 1 AX, 1HO* 1 AX, 1HE  / 

?.  5  (5X,I5.4tl5.5  /)  /I 
END 

•OECX  03 

OVERLAY  (IMPACT, 3, 01 
PROGRAM  A3AFLD 
C 

c  program  to  calcula trajectories  for  pneumatic  impact  atomizer 

C  THIS  VERS1LN  ASSUMCS  RUNNING  WITH  GOSMAN  OUTPUT  TAPE 

c 

common  /  TRAJl  /  X1STRT.X2STRT,TMFTST 
C 

COMMON  /  TRAJ  /  VFUEL.TFUEL.TFUELF,SGF,FMU.RHOF.PS*PT,TS,TT, 

1  HM041R,A1RMU,G,VA1H,SHU1 

♦  , XHAX, YHAX 

COMMON  /  INPUT  /  KFUEL ,OEQ,GAP,PPH, T 1 TLE ( A) 

C 

common/  TABLES  /  T1(7),V1SA1R(7),TP(2,4) ,SGFUEL(2,A) «T3(12«4), 

1V1SFUL (12.A1 ,NTAH1 .NTAR?.NTAB3,NFUEt.5 

common  /  TABLES  /  T5 ( 1 0 ) .SGTABS ( A ) .SRFTNS ( 1 0. A) .NTAB5T.NTAB5S, 

1  OlASMO(S) ,N01 ASM.RNTAR (71 ,FTAfl( 7) , NTARRF,TAR ( 1 1 ) , PR A TAR (11) , NT AS A 
C0»  MOM  TABLES/  TBR(B) .TKTaB(B)  ,NTABH,T9R(  10)  .CPTAB'.IO)  ,NTAB9 
01HENS10N  OIA (51 

COMMON  XL1 .XL2.01A1 ,01AP. SLOPE! .SLOPE* 

COMMON  NXXXX.AXISHJdO) .AXISMN(IO) ,XXXX(10) 

COMMON  /  OEVAP/  DUHHY(?n),D(5).TF(5).VF(5).VRELl5),  RN(5). 

1  C0(5) *0RAG(5) »FN(5I ,  CP(5).nEL0(5).SG(5).FRHO(5).0ELTF(5>. 

2  T1MS(5I .FMASS (51 .ALPHA (51 .0ELV(5) .E(5) .0X.WI5)  .VFSAVE(5) ,TFSAVE(5 

3  I .OSAVE (51 ,ESAV5 (5)  .OSTART (5) .SGSG60(5) ,SG6o<5) «0ELM(5) 

A, OPTION, SPACE (6) 

♦  ,WST (51 ,EW (5) 

C 

C 

C  INPUT  OATA 

C 

C  KFUELp  FUEL  TYPE  (1.2. 3. 4) 

C  TFUELR*  FUEL  TEHPERATURF.  (R) 

C  P3*  AIR  PRESSURE  (PS1A) 

C  T3R«  AIR  TEMPERATURE  (R) 

C  PPH«  FUEL  FLOW  RATE  (LB/MR) 

C  DELP«  DELTA  PRESSURE  (PSIA) 

C 

C 

TITLE <81 ■  lOHMOOEL  NO  3 

C  2714-0  NT  HOI  >>8(ELTIT  2 

WRITE  (61,10101  TITLE 
OPTIOnpO. 

READ  (60,1201)  VAG.KFUEL.TFUELR.P3.T3R.PPM.OELP.TGAS.OIA4 
WRITEI61, (202)  VAG.KFUEL. TFUELR.P3. T3R.PPH.0ELP.TGAS.0lA4 
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T28I  format  <f9.0« il  .tfYoVoT 

1202  FORMAT  <11 HO  VA  GUESS  .  5h  FUFL.4X.6HTFUELR  .6X.2HP3  .7X.3HT3R  , 

1  7X,  3MPPK  .  6X .4MDELP  .6X,4HTG*S  .6X.4MDIA*  /  1X.F 1 0. 4, IS.7E 1 0.4) 
C  GEOMETRY  parameters  (IN) 

RF AO  (60,]210)FJFT!D,DlAl<0lA2,()lA3<XLI  « XL2.5UM.F JETOD 
MR HE  <61 , 1?90) FJETID.DIAI « 01 A7, 0 ( A3 « XL1 «  XL2 «  FJETOD 

NxXXXat  0 

IF  (OIA2  .NE.  0.)  GO  TO  190 
C  READ  TABLE  OF  X  VS.  MAJOR  AXIS  AND  MINOk  AXIS 

NXXXXs  OTA1 

REAU  ( 60 • I ?1 0 )  (XXXX(I) ,IbJ .NXXXX) 

WRITE  <61 »I370)  (XXXX(t) . I«I .NXXXXI 
READ  (60,1210)  <AXISMJ(T),IbI, NXXXX) 

WRITE <6i«n70)  (AXISMJU)  .IMI. NXXXX) 

HE  AO  (60,1710)  < AXISMN <T ) . I«I • NXXXX) 

WRITE  <61 .1170)  (AXISMNO)  ,I«I.  NXXXX) 

DUMMY (I) «  3600. 

00  140  Ib). NXXXX 

IF  < A X I SMN < I )  .EO.  0.)  AXISMN(I)b  AXISMJ(I) 

DUMMY  ( 2 )  b  AXISMN(T)  •  AXlSMJd) 

IF  (DUMMY  <2)  ,GT.  OUMMY(l))  GO  TO  140 
OUMMY  < 1 ) b  dummy (2) 

jsl 

140  AX  ISM J  < I ) s  S0RT(0UMMY<2) ) 

DIAIb  AXISMJ(l) 

0!A2b  AXISMJ(J) 

OIA3«  AXTSMjlNXXXn 
XL1«  XXXX(J) 

XL?«  XXXX (NXXXX)  -  XU 
00  ISO  IbI, NXXXX 
XXXX  < I ) •  XXXX  < I )  /  12. 

150  AXISMJ(I)B  AXISMJ(I)  /  12. 

190  CONTINUE 
OEOb  dIAI 

RF  AO  (60,1210)  X1STRT.X2STRT.THETST.GAP.COOAP.XMAX.YMAX 

whitf  <61,1*00)  x;strt.x7Stht,thetst,gap,cd<iap.xmax,ymax 
1  TOO  FORMAT  ( 1MQ ,6X , 4HXL IP  «6X ,4MYL IP,?X .8HTHET  LIP.TX,3HGAP,5X,5HC00AP, 
1  6X« 4HXMAX.6X, 4HYMAX  /  IX,  RFI0.4  ) 

C  RATBUPb  CONSTANT  FOR  hrfak-up  length 

RATbUPs  2.40 
PT«  3.14159 
PI04b  PIB.7S 
PI0576b  Pf 04/  144. 

ZRbPTO**  <ni A1 **2-" JET00»*2) 

C  CONVFRT  nTAMETERS.  LENGTHS  TO  FEET 
OTAIb  DIAI  /12. 

DI.V2b  0IA2  /I2. 

DIAJb  DIAI  /I2, 

DIA*b  D1A4  /12. 

AGAPb  C.TGAP  •  PI  •  0IA4  •  GAP  /  12. 

*1  I«  XLI  /1 2. 

XL2«  XL?  /12. 

TFUELFb  TFUELR-  459.69 
T3Fb  T3B-  459.69 

C  FUEL  SPECIFIC  GRAVITY  (DHLS) 

SGFs  TAB (TFUELF . T2  < 1 .KFUEL) . SGFUEL  < 1 .KFUEL ) .NTAB2) 

SG60F  «TAB  <60 . . T?  < I , KFUEL) .SGFUEL ( I .KFUEL) .NTAB2) 

C  FUEL  VISCOSITY  (CENTISTnKES) 

FMUb  TAB (TFUELF. 73(1. KFUEL). VISFULtl. KFUEL). NTAB3) 

C  AIM  VISCOSITY  (LB/SEC/FT) 

AMUb  TAB (T3F .T1.VISAIR.NTA31) 

WRITE  (61. 1140)  SGF.FMU.AMU 
RHDAb  2.69917  •  <P3  -OELP)  /  T3R 
RHOFb  62,428  •  SGF 
C  CALCULATE  GUESS  FOR  V  'MR). 

VAIRGb  VAG 
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N 


*9 


IF  (VAS'.TOr'l'.)  VAIRG«  SORT  KOT7 RHOA) 

KNTVAaO 
GAMMA* I.* 

C«a  GAMMA-I. 

Cl»  C**.S 
C?»  gamma/  c* 

C3*  GAMMA  *.5 
CIS*  (GAMMA  «  I.)  /  C4 
CS*  C15  •  .5 
CI6*  CIS  -  I. 

71»  *53. SO/  I72G.  /  2.5***3 
72*  PI0576*FJETID  •*?  *3600. 

Z3*  ZB  •  3600.  /  U*. 

Z**  ?.5*  •  !?. 

SL*  .S  •FJETIO  *  2.5* 

Z5»  •S.i’F-b  /I?. 

OX*  .0 ?  /I?. 

XENO*  XL1  «XL2 

SLOPE  1*  (D1A?  -  01 A I )  /  XL  I 

slope?*  (oias  -  niA2)  /  xl? 

Z7*  ,?»PPM/3600. 

Z9*MH0F*P1P4/1.S 
G*32. 17* 

Z  0*G*GAMMA*53.35 
Z1I*  FJET1D*.S 
VFUEl*  PPH  /  Z2  /  RhOF 
C  SURFACE  TENSION  (OVNE/CM) 

00  310  1*I.NTAH5S 

310  OUMMY(I)*  TAB (TFUFLF . T5.SRFTNS ( 1 « 1 1 .NTAB5T) 

TAU*  T AB (SG60F  ,SGT AB5. DUMMY, NTAR5S) 

ETAR*  FMU  *  SGF 
RHOG*  Z1  •  RHOA 
VT*  Z*  •  VFUEL 
KP«INT»0 

BEGIN  CALC.  PITH  GUESSEO  VALUE  FOR  V  »AIR> 

300  KNTVAs  KNTVA*I 

OMA*  RHOA  *  Z3  •  VfclRG 
OMR*  QMft  /PPH 
VR*  VAIRG  /  VFUEL 

SMOl*  SMOF  (TAU.ETAR.RHOG.QMR.SL.VT.VR) 

27I*-D  NT  ASAN  ,2  .ON  LEDC*  NOITASIMOTA  C 
rJATCTROS  ■) 1 ( YMMUD 

/  RV  /  276000.  •  FGS  •  UMF  •  IHYMMUOI  TROS  •  DITEJF  *  6E05.  *10MS 

>  RMO  1 


WRITE  (61,1110)  VAIHG,  KNTVA  ,SM01 

c  initialize  for  calculations  through  the  fuel  tube 

00  320  1*1.5 

01 A  ( I )  »  niAS'AOin*  SMOl 

otn*  oucr,  •  zs 

C  DROPLET  MA'iS.  constant  throughout  fuel  tube. 

FMASS ( I ) *0 ( I ) **3*Z9 
E ( I ) *0. 

W ( I ) bFMASS ( 1 ) 

WST(I)BFMASSU) 

FN ( I ) *Z7/FMASS ( I ) 

TF ( I ) ■  TFUELR 
320  VF  ( 1 )  *  VFIIFL 

BRUPLbRATBUP*  SMOl 
XN*  RRUPL  •  Z5 
XSTART*  XN 
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XFRACTa  XSTART  ♦  Zll 
FRACTNb  0. 

TT-T3R 
PT  »H3 

VAIWb  VAIr.i 
DUMMYa  VA] R»*2  /  TT 
PMACH2a  DUMMY  /  (210  -  DUMMY  •  Cl) 

C7a  1.  ♦  Cl  •  FMACH2 

TS»  TT  /  C7 

PS»  PT  /  C7  »*C2 

RHOAa  2.64917  •  PS  /  TS 
HAlMa  RMOA  •  28  /  144.  •  VAIR 
MTOtaWATR 
KKaO 

RHOAIRa  RHOA 
OOUCTa  01AMTR  (AN) 

AlHMlIa  AMU 

ADUCTa  PI 04  •  00UCT**2 
IMTtPal 
FOVaO. 

OFLTOaO. 

DPuGPOa  0. 

FFM*  0. 

Clla(A0UCWA/l44.)/(ZP/144.> 

BEGIN  CALCULATIONS  OVER  INTERVAL  OX 

330  CONTINUE 

331  C7*  1.  «  C1*FHACH2 
IF(KPHINT.NE.O)  RRITE(6l .2500) 

2500  FORMAT (1HO) 

HlGRaC7/(l—FMACH2) 

FMACH2aFMACH2*(l.aBlGK*(-2.*Cll*?.»FFM/RTOT»OELTO/TT-2.aDPOOPO) > 

335  FMACHa  SORT (FM*CH2) 

336  KKal 

TSa  TT/C7 

PSa  PT/  C7**C2 

VAIH«  EMACH*  SORT (71 0  •  TS) 

RHOAIRa  2.6991 7-PS/TS 
IF  (KPR1NT  .EQ.  0)  GO  TO  337 
DUMMY ( 1 ) a  XN  •  12. 

WRITE  (61.1250)  TS.PS.TT.PT.FMACM  .VAIR.0UMMYI1 ) 

337  IF  (XN  .GE.  XENO)  GO  TO  500 
TFMPRa  rhoair/airmu 
RNAIRa  VATR  *OOU<.  T  *  TEmPB 
C  FRICTION  FACTOR  F 

IF  (ONAIR  ,LT.  RNTAU  (l))  GO  TO  340 
Fa  UH(RNA1R.RNTAP  .FTAR  .NTARRFl 
GO  TO  350 
340  Fa  16./  RNA1R 
350  TEMPAa  RIIOAIR  /  9266. 

CPA IRa  TAR(TT.T9R.CPTAB.NTAB9) 

no«o. 

TOTURGaO. 

FL»0. 

F0w«0 • 

FFMap . 

NOCLASaO 
00  360  Ial,5 

IF  (Ed)  .GT..9R9999)  SO  TO  ?60 
CALL  EVAP  (INTER. I) 

01 A { I) aO( I ) /25 

00a  OQ  ♦  FN(1)  •  OELO(I) 

TOTORG»TOTORG  *FN( I ) *0RAG ( I )  *  TIMS(I) 

FL  ■  FL  ♦  VRELd)  •  TIMS(I) 

FOVaFO V ♦? . • ( 1 . - VF ( I > / VA 1 R ) *0ELM (I ) *FN ( I ) /VTOT 
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TP54«FFH»|)fLM(T)*rfi<n 

360  CONTINUE 
!NTfcRa2 

C  ADJUST  DRAG  ANO  HEAT  FOR  FRACTION  OF  FUEL  INVOLVED 
TOTO»G«  TOTORG  •  FRA'.TN 
DO*  DO  •  FRACTN 
FOW*roW*FR*CTN 
FFN«FFH«FRACTN 

1F(NOCL4S.GT.O>  FL«FL/NOCLAS 
WTOT*WTOT«EFM 

WAlMST*  AOUCT  •  RHOA1R  •  FL 
xnpi *  xn  ♦  nx 

IF  (XNPI  .LF.  XENO)  GO  TO  3F0 
XNP'a  XENO 

380  OOUCTPa  OTAMTR  <XNP1) 

AOUCTP*  PID*  •  D0UCTP**2 
OAHEAa  AOUCTP-  AOUCT 
CA«  FMACH2 
Cl !■  OAREA  /  AOUCT 
C12«  A.  •  F  •  OX  /  ODUCT 

Cl 3"  TOTus'G  /  (C3*  PS  •  AOUCT  »C6)  /  1*4.  *C12 
DELI  0*  -no  /WTOT/CPA1R 

OPOOPOa-C3«C6*(OELTO/TT*C13*FOH) 

C  SFT  AIR  PARAMETERS  AT  END  OF  INTERVAL 
PT«  PT  •(!.♦  nPOOPO) 

TT«  TT  «  HELTO 

C  AO JUST  FUEL  PARAMETERS  FOR  FRACTION  INVOLVED 

FRACTla  1. 

If  (XNP)  .LT.  XFRACT)  FRACTla  J.  -  (1.  - ( XNP1-XSTART) /Z1 1 ) **2 
TEMPI  a  FRACT1  -  FRACTN 
00  *0]  1*1.5 

IFIEIll.GT..' 909999)  GO  TO  *01 

TF { 1 ) a  (FRACTN*TF  <11  ♦  TEMP1*TFUELR  1/  FRACT! 

SGRESOa  SGRFCT  (FSAVEdll 
SGd)a  SGFCT  (TF(I),  SGRESO) 

SGNOdla  SGFCT  (S19.69, SGRF.50) 

W2*  mil  -  OELH <11  •  FRACTN 
IFIV2.LT. l.F-30)  W2*l .F-3C 

0 <1 )  ■  <6.*  W?  /  PI  /  SGd»  t  62. *28)  **.3333333333 
1F(0(1>.LT.1.F-10>  Dd)al.E-10 

E  ( 1 )  ■  1.  -  (  0(11  /  OSTARTdl  ) **3  •  S0(1)  /  SG60  ( I )  /  SGSO60U) 
IF'Ed)  .GT..R9)  E ( 1 ) ».99 
IF  (Fill  .LT.  0.1  E d 1 *0. 

*00  VF ( 1 ) ■  (FR*CTN*VF  <11  ♦  TEMP1*VFUEL  >/  FRACTl 
Will  *W2 

EW(1)*1.-W(I)/WST(1) 

*01  CONTINUE 

*05  IF  (KPRINT  .FO.  0)  GO  TO  *10 
WR1TF  (61,1260)  TF 
WRITE  (61,1270)  VF 
WRITE (61 .1350)  E 
WR1 TF (61 ,2*02)  F« 

WRITE (61 ,2*01 )  01A 
WRITE (61,2*03)  W 
1350  FORMAT (*H  E  a  5F15.5) 

2*02  FORMAT (*H  Ewa  5F1S.5  > 

2*01  FORMAT (*H  0  ■  5F15.5) 

2*03  FORMAT (*H  W  a  5E15.5) 

*10  XNa  XNPI 

AlHMIla  TAR  (TT  -*59.69, T1 , VI5AI«»NTAB1 ) 

OOUCTa  OOUCTP 
AOUCTa  AOUCTP 
FRACTN*  FRACTl 
GO  TO  330 
C 

C  FUEL  TUBE  CALC.  COMPLETE 
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C 

C  CALC.  Effect  OF  GAP 

soo  coni i hue 

AGAPVC*  PI  •  01  A3  •  GAP  /  12.  •  COSAP 
AGAPEa  pi  •  01 AA  •  GAP  /  12. 

FMGAPa  FMACH 

IF  (AGAPVC  .GE.  AOUCTP)  AGAPVC*  AOUCtP 
IF  (AGAPVC  .GE.  AOUCTP)  GO  TO  502 
AGAPs  AGAPVC 

FMGAPa  FMACH  •  AOUCTP  /  AGAP 
IF  (FMGAP  .LT.  I.)  GO  TO  501 
WRITE  (61 . 1*10)  FMGAP 
CALL  EXIT 

501  FMAVE2*  (FMACH  «  FMGAP)  **2  •  ,25 

DUMMY  ii)  a  (I,  ♦  Cl  •  FMAVF.2)  /  (I.  -  FMAVE2) 

FMGAPa  EXP  ( DUMMY ( I )  •  »LDG ( ADUCTP/AGaP)  )  •  FMACH 

CT»  1.  ♦  Cl  *  FMGAP**2 

TSa  TT  /  CT 

PS«  PT  /  C7*»C2 

V*I),a  FMGAP  •  SORTIZIO  •  TS) 

502  CONTINUE 

PRINT  I250.TS.PS.TTsPT.FMGAP.VAIR 

IF  (01  A*  ,LE.  01*3  ♦  6.  •  GAP  /  12, )  00  TO  503 

OGAPa  RHOAIR  •  VAIR  •  VMR  /  9  6*. 

CPIOa  (1.  -  I.  /  (AGAPE  f  AGAPVC ) **2  ) 

ETAOa  .5 

OPTa  CPIO  •  (I.  -  ET AO)  •  OGAM 
PTa  PT  -  OPT 

PS«  PS  «  CPIO  *  ETAO  •  OGAP 
VAIMa  VAIQ  •  AGAPVC  /  AGAPE 
FMGAPa  VAIR  /  SORT  (ZlO  •  TS) 

503  CONTINUE 

PRINT  1250. TS.PS.TT.PT, FMGAP, VAIR 
C  CHECK  IF  GUESSEO  V (AIR)  WAS  O.K. 

OFLPC*  P3  .  PS 

WRITE  (61.1220)  OELP.OELPC.KNTVA 
IF  (ABSIOELPC-  OELP)  .LF.  .020*  OELP)  GO  TO  520 
C  NOT  WITHIN  TOLERANCE 

510  VAIHG-  VMRG  *SORT (OELP/OELPC) 

IF  (KNTVA  .LT.  10)  GO  TO  300 
WRITE  (61,1100)  KNTVA 
CALL  EXIT 

520  IF  (KPRINT  .NE.  0)  GO  TO  550 
KPRINTal 
GO  TO  510 

CALC.  AVERAGE  FUEL  VELOCITY  AND  TEMPERATURE 

550  VFUELa(VF(l).VF(2)*VF(3)«VF(A)«VF(5)  )*,2 
TFUtL»(TF(1)*TF(?)«TF(3)«TF(4)*TF(5)  )*.2 
WRITE  (61.1300)  E 

WRITE  (61,1250)  TS.PS.TT,PT,FMGAP,VAIR 
OMRa  UAIR  /  PPH  •  3600. 

QC0»  .0063229*  WAIR  /P3/  AOUCTP  *  SORT(  T3»  /  OELP  •  PS) 
WRITE  (61,1515)  WAIR, OCO, OMR 

IF  ( F ( I )  ,GT.  .01)  GO  TO  5S0 
570  TFUELF*TFUEL-*59.69 

SGFaTAB (TFUELF.T2I I .KFUFL) .SGFUEL (I .KFUED .NTAR2) 

FMU»  TAB ( TFUELF , T3 ( I »KFUEL ) . V I SFUL ( I ,KFUEL ) , NTAB3) 
RH0Fa62,*2«*SGF 
00  560  lal , NTAB5S 

560  OUMMYIDa  TAB ( TFUELF, T5.SRFTNS ( I , I 1 .NTAB5T5 
TAUa  TAB ( SG60F  .SGTAB5. DUMMY, NT AB5S) 

ETARa  FMU  *  SGF 
RHDG»  Z1  •  RHOAIR 
VT»  2*  •  VFUEL 
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vn*  v*ts  7'vfuel 

PPM*  PPH  •  (1.  -  (FW{))«EW(2)«ru(3)*EM(*>»EW(5>>*.2> 

SL*  PPH  /  <3600.  *  RHOF  •  VFOEL  •  PI  •  01**)  *  '* 

SLH«  SL  /  7*  /  3.2B1E-6 

SMD1«  SHOP  (TAU.ETAPiiPHAOtOHPtSLtVT.VP) 

FUELP«PHOE*VFUEL#«7/026A. 

WRITE  (*!,. 230)  VFUEL.TFUEL.V*IP.TT.FUELP*SN01»P,,H’'SLH 
C  CALCULATE  TRAJECTORIES 

IF  ( XHAX  .6T.  0.)  CALL  TRAJ3  (OIASHO) 

GO  TO  1 
5B0  SUMs  o. 

SlIMis  0. 

00  590  Is) .5 
SUMs  SUM  *  W(l) 

500  SUMls  SIIM1  ♦  ( TF  ( I )  -  TF  (3) )  •  W(I)  •  (CP(I)  ♦  CP(3)) 

TFULLs  SUM)  •  .5  /  SUM  /  CP (3)  ♦  TF ( 3) 

GO  TO  570 

700  WRITE’ (61,12*0) 

CALL  EXIT 
1  CONTINUE 
C 

1010  FORMAT  ( 1  Hi , AA 1 0  /) 

lino  FORMAT  (21 MONO  CONVERGENCE  AFTER  . 15, 1 OHI TERA) IONS  ) 

1110  FORMAT  (  AHOV ( AIR) s  FI  2 .3, 1 10 ,5X tAHSMOs  F6.2) 

11*0  FORMAT  (AHOSGs  E)?.*.7H  (OMi.S)  ,*X,:OHVISC  FUEL*  E12.*,12H  CENTI 
1ST0KES  «*X « 10HV I  SC  AIR  s  E12,*.iOH  LB/SEC/FT  ) 

1200  FORMAT  I  Iir,7F10  ,2) 

1?10  FORMAT  (AMO. 3) 

1220  FORMAT  {  6H0OELP*  F10.*.*X,  6H0£Lr'C=  F10.*t*X,  6HCDUNTs  15) 

1230  FORMAT  (  7H0VFUFLS  F6.2.2X.6HTF0FL*  F6. 2.2X .5HVA JRs  F6.2 1 2X , 3  . Ts 

1  F6.1 .2X,6KFUFLP*  F6.2.?X,*HSMns  F6.2.2X ,*HPPHs  F 1  ,  2X  ,*HSLM* 

2  F7.3  ) 

12*0  FORMAT  (26H0MACH  NO  ITERATION  FAILURE  ) 

1250  FORMAT  <*H  TSs  FA .2 . 3X ,3HPS»  FA.* , 3X , 3HTT*  F8.2.3Xt3HPTs  F8.*t3Xt 
1  2HMs  FB.5,3X,5HVAIHs  FA.2«3X ,«HXI Ns  FB.5) 

1260  FORMAT  <*M  TF s  5F15.2) 

1270  FORMAT  <*H  VFs  5F15  •?) 

1280  FORMAT  (5H0FUEL  ,*X,6HTFUELR  ,AX,2HP3  .7X.3HT3P  .7X,3MPPH,6X,*HDEL 
IP  .7X.3H  ,6X ,*H0 1  A*  /  15.5F10.*tl0X.F10.*) 

1290  FORMAT  (lHn,*X,5HJETIO  ,6X,*H0IA)  ,6X,*H0IA2,6X,*H0IA3,7X,3HXL1 ,7X 
1  . 3HXL2  . 5X •  5HJET00  /  BF10.*) 

1300  FORMAT  OHOEs  5F15.5) 

1370  FORMAT  (1HO,10F10.3) 

1*10  FORMAT  (11M0GAP  MACH  NOs  F10.5) 

1515  FORMAT  (15H0AIR  FLOW  RATEs  FU,5,*H  PPS.5X , 17HOISCHARGE  COEFF.s 
1  FB,*  .5X . ) 5HAIH-FUEL  R»TI0»  Fin.*) 

END 

SUBROUTINE  TRAJ3  (OIASHO) 

PROGRAM  TO  CALCULATE  TRAJECTORIES  FOR  IMPACT  INJECTORS 
CHANGES  AND  AOOITIONS  Mi OE  7/31/7)  FDR  GOSHAN  COMPATIBILITY 

OUTPUT  OF  ROUTINE  IS  LOCATION  OF  E»  .1 , .2. .3. ... . .9  FOR  EACH  OF  5 

DROPLTT  GROUPS 

COMMON  /  OIITPT  /  XlE(StlO).  X2E  (5. 10) 

COMMON  /  KIMH  /  X 1 (2 1) t X2 (21 ) ,G1 (2l  .*1 ) » G2 (21 .21 ) ,R0 (21 ,21 ) t T (21 1 
1  21).  IN,  JN.  R ( ? 1 ) ,  FtVAP(21.?l) 

COMMON  /  TRAJl  /  X 1 STRT , X2STRT , THETST 

COMMON  /  TRAJ  /  VFUEL.TFUELR.TFUELF.SO.FHU.RHDFUL.PS.PT.TS.TT, 
lRHOAIR.AMU.G.VAIRST.SMO.XMAX.YMAX 
COMMON  /  INPUT  /  KFUEL*0E0*GAP,PPH,T1TLE(B) 

COMMON  /  OEVAP/  0UMMY(2n) ,0(5) ,TF(5) ,VF(5) .VRELI5) ,  RN(5)t 

1  CO (5) ,ORAG (5) ,FN (5) ,  CP (5) .OELO (5) ,SG(5) .FRHo (5) .DELTF (5) # 

2  TIMS (5) .FMASS (5> , ALPHA (5) *OELV (5) i E (5) *  DX, W (5) *  VFSAVE (5) , TFSAVE (5 

3  ) .OSAVE (5) .ESAVE (5) .OSTART (5) .SQSG6Y (5) .SG60 (5) f OELM(55 
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*.0)'T!0N. ‘/A  IrhTV  MW i"S J NT • C?5T .fcOM I  ,  ouh2 
5.  WST<5).EW<$) 

COMMON  /PLOTNfi  /  KP.OT 

DIMENSION  X (102.5)  .Y  (102.5)  .NNN<5)  .LABELS! 6)  ,01aSm0<5)  <DIAt5> 
DIMENSION  LA8ELF (4) 

'.  JMtNSION  000(102*5)  .EVP <102*51  .TTF  <102.51  .VEF  <102.51 

DATA  LABELF/  IOHSHFLLOYN  H  .10HJPS— JP8  *10HJ£T  A-l  . 3HJP4/ 
OAT A  LABELS/  «H  0  •  20*8M20  -  40*  BH40  -  60*  8H60  -  80* 

1  flHBO  -  100*  10H  /  VOLUME  / 


REW1NO  1 

RFAp  < 1 1  IN*  JN*  XI*  X2*  R 
REAU  (11 
REAU  (It  01 
READ  Cl)  0? 

REAU  (1)  RO 
REAP  (1) 

READ  <1)  T 
RFRIMO  1 
OPT10n«1. 

00  3  1.1,510 

X<1)«0. 

3  YClI.O. 

~WlNO  2 
00  10  1*1*441 
10  FEVAP(I).  P. 

C  CONSTANTS  FOR  CALCULATIONS 
SI«  .01 
ELIM.  .94 
S.SI/12. 

OX.S 

C0N9.  39.37E-6  /'.?• 

C  CALCULATIONS  BEGIN  ••**«••* 

XX.  X1STRT  /  12. 

YY.  X2STRT  /  12. 

CALL  A1RPRP  <XX.YY.VAISH1.VA1RV1.TS11 
THETAI*  -  THETST  /  57.29578 
STNTl.SINCTHETAl 1 
COSH*  COS  <THFTA11 
MAXK.O 

00  150  1.1,5 
C  01 A  IS  IN  MICRONS 

01  A  (  T  1 .  QIASMOU!  *  SMO 
C  0  15  IN  FEET 

0<1).  OIACI)  *  CGN9 

E<n*  o. 

EMI).  0. 

W(I)«  0<I)**3*RH0FUL*3. 14159265  /  4.  /  1.5 
WST  <  1 1  *  WCI) 

VF  <  1)  s  VRIFL 
TF<II«  TFUFLR 

inter.i 

KKK.l 

C  **  THETA*, THETAI 

VAIHH.  V  A I HH1 
VAlHV.  VAIRV1 
TS«  TSI 
SINT.SINTl 
•  COST.COSTI 

xu.n.xx 

YCl.ll.YY 
Kl«  0 
EW1«  EWCll 
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a 


« 


* 


"CiLVTCVfpC'UX.  YV.  KI.  esr.ivrm 

0RD(l,I>a0d)/C0N9 

evp<i.n«o. 

TTFd.DaTFUELR 
Vf.F  <1  ♦  I )  aVFUEL 
KOVERal 
KOUnTb  1 

100  FOUNTa  KOUNT  *1 

IF  (FOUNT  .GT.  100)  GO  TO  1 10 

101  IF  (F  ( I )  .LT.  ELI*)  CALL  EVAP  (INTER*!) 

IF  (INTFR  .LT.  0)  00  TO  120 

InTEP»2 
ja  FOUNT  -  1 
C  X,  Y  IN  FEET 

X ( FOUNT «  T ) ■  XIJ.I)  *S  •  COST 
Y(FOUNT.I)a  Y(J.I)  -S  •  SINT 
W ( I ) a  H(I)  .  OELM(I) 

%  EH(l)a  1.  .  N(I)  /  UST(!) 

CALL  FEVAPC  ( X  ( FOUNT  •  I )  .  Y(FOUNT*D«  FI*  fcWI  *EW(  I) ) 
DRD( FOUNT • I ) «  D(I)/C0N9 


C 


C 


C 


C 


EVP ( KOUNT . I ) ■  EU(I)  •  100. 

IF (E ( I ) .LT .  .001)  EVP (FOUNT* I )a0. 

TTF (FOUNT . I ) «TF ( I ) 

VF.FSF  )UNT.I)»VF  (I) 

CMECF  IF  THIS  INTERVAL  CROSSEO  EV*P.  STORE  POINT 


Fa  FFF 

00  600  L>F *10 
FFFa  L 

EP«  rLOAT (L)  •  .1 
IF  I*.  .FQ.  10)  EPa  .95 

IF  (ESAVE(I)  .GE.  EP  .OR.  E(I)  .LT.  EP)  GO  TO  610 

interpolate  for  (xi.xzi  in  feet 


dumb  o. 

TEMPa  Ed)  -  ESAVE(I) 

IF  (TEMP  .NE.  0.)  OUMa  (EP  -  ESAVEU)  )  /  TEMP 
X1E  <  I  .L)  ■  X(J.I)  *  OUM  •  ( X  ( FO'-'NT  *  I )  -  X(J,D  ) 

X2E  <  I  *L)  ■  Y(J.I)  ♦  OUM  •  (Y(KOUNT..‘;  -  YU. I)  ) 

XlFd.Ua  XlFd.U  *  )2. 

X?E ( I «L) a  V?E(I«L>  •  12. 

600  NRITF  (61.2010)  1 .EP.XIF ( I *L > *X2£ d *LJ 
GO  TO  120 

CMECF  IF  HAVE  HIT  A  RNORY 
610  IF  (X(KOIINT.I)  .GE.  XI  (1)  )  GO  TO  620 
DUMa  6HLEFT 
GO  TO  650 

620  IF  (X(FOUNT*I)  .LE.  XI (IN))  GO  TO  630 


OUMa  5MRI0MT 
GO  TO  650 

630  IF  ( Y (FOUNT  *  I )  .GE.  XZ(I)  )  GO  TO  6A0 
DUMa  6HH0TT0M 
GO  TO  650 

6A0  IF  (Y(KOUNT,I)  .LE.  X2(JN))  GO  TO  105 
OUMa  3HTOP 

650  WRITE  (61.2000)  I*OUM 
655  DO  660  LaKFFdO 

XIE ( I.L) a  X(FOUNT.I) 


660  X2E (I <L) ■  Y (FOUNT « I ) 

GO  TO  120 

105  IF  (INTER  .LT.  0)  GO  TO  655 
••  THETAa  ATAN2 (OUMI . DUM2) 

SINTa  DUM1  /  VF (I ) 

COSTa  0UM2  /  VF  < I ) 

CALL  AIRPRP  ( X (FOUNT . I ) « Y (FOUNT »l) ,VAIRH.VAIRV,TS) 
60  TO  100 
110  KOVERaFOVERd 

IF  (FOVER  .LT.  10)  GO  TO  III 
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*R1TF  (hi. 1100)  1 
KOUNTa  KOUNT-1 
GO  TO  665 

C  COHPPFSS  100  PTS  INTO  50  ANO  CONTINUE 

111  no  112  Ja«, 100*2 
KaJ/2 

OHO(K.i)»nno<j«i> 

evP(k.1)»pvp:j,i) 

TTF(K.l)aTTF(J.l) 

VEF(K,l)avEF(J.l) 

XlKtl)aX(j.l) 

112  Ylfc.TlsYIJ.l) 

KOUNTbSO 

GO  TO  100 
120  NNNITla  KOUNT 
Kit  -1 

CALL  FEV*PC  (X(KOUNT.l).Y(KOUNT.l).Kl.E*l.EB(I>> 

IF  (MAXK  ,LT.  KOUNT)  MAXKbKOUNT 
150  CONTINUE 

WP1TF  (hi. 1200)  FEVAP 

1200  FOHMAT  (THOFEVAPb  /  21 ( 1 H0.7E12,*  /  2 ( 1 X. 7E12. */)  )  ) 

WH1TF  (2)  FEVAP 
PE VI NO  2 

WOITF  (61,1180)  I l.TF (1) » VF ( I) .0(1) « E  < I) ,laj,5) 

WR1TF  (61.1120)  (LABELS(l) .LABELSI6) ,!al .5) , (OlAil) .Tal.S) 

O':  158  lai,5 
Na  NNN(T)  ♦  1 

If  IN  .GT.  MAXK)  (30  TO  1  SB 
00  56  JbN.MAXK 

OPDIJ.Da  0. 

TTF (J.1)b  o. 

VFFIJ.lla  0. 

EVP  I J, 1 ) a  ft. 

X ( J. T ) -0. 

156  Y ( J. 1 ) a  o, 

158  CONTINUE 

00  160  Jal.MAXK 

C  CONVENT  TO  INCHES  FOR  PLOTTING  ANO  PRINTING 

00  169  1=1.5 
X ( J, T ) a  X(J.I)  *  1?. 

169  Y(J,l)a  Y(J,1)  >  12. 

WRI IF (6). 1130)  () (J.I) ,Y(J,1) >la!,5) , (ORD(J.I) *TTF(J»1) . VEFIJ, I) 
♦  ,EVP( J.l) ,1a] ,5) 

160  CONTINUE 
C  PLOTTING 

CALL  PLOT  (l.,l,,-3) 

0=1  . 

1FIYMAX.GT.1.1 .0R.XMAX.GT . 1 ,* )  0»2 
IF  I YMAX.GT.2.1 .OR.XF AX.GT.2.8)  0»A 
IF (YMAX.GT.A.1.0R.XMAX.RT.5.0)  0*0 
1F(YMAX.GT.8.1.0R.XMAX.«T.11.5)  0al6 
XL»  1 .50=0 
YL»1 .25*0 
DELXaXL/12. 

OELYaYL/10. 

CALL  AX!S(0.,0..1HX,-l,l2,,0..0.«OELX) 

CALL  AXIS  (0,.0.«1HY,1,10.,90.,0.,0ElY) 

YL»8.5 

00  180  Ial,5 
NaNNN ( 1 ) 

X(N«l,l)aO. 

Y(N«l.I)a{), 

X(N*2,I)=0ELX 

Y(N*2,l)aDEL'' 

CALL  LINE  (XC.D.YIl.D.N.l.lO.I) 

XL«*.5 
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CAUL  SYMBrtC“IXL,YL».10,I.O.,-l) 

XL*AL*  .2 

CALL  SYHROL  (XL, YL,  .1 O.LAHELS  ( I ) ,0 , «R) 

kl*xl».mo 

CALL  SYMBOL  (XL. YL. .10,46, 0.,”') 

XL«AL».2 

CAuL  SYMBOL  (XL. YL* . 10.6HV0LUME,p. .6) 

XL«XL«1. 

CALL  nUmRER(XL»YL,.1.01A<1) ,0.,2) 

XL*  XL  *  .A 

CALL  SYHBOL { XL  * YL  « . 1 «  7HM ICRONS • 0 . « 7 ) 

Yl  «YL».2 
180  CONTINUE 

CALL  BLOT  (0..-.5.-3) 

CALL  SYMBOL  (  .5 •  1 0.5, .20.T1  TLE « (! .  .80 ) 

CALL  SYMBOL  (1..10...10.21H1NJECTOR  TRAJECTORIES  .0..21) 

CALL  SYMBOL  (.5,9.4,, 10. 5HFUEL*  «0.,5) 

CALL  SYHBOL  (1.1.9.4..ln,LARELF{KFUEL>»0.,10) 

CALL  SYMBOL  (2.5,9.4,.ln«7HFUEL  T»  ,0.*7) 

CALL  NUMBER  <3.2,9.4«.ln,TFUELR,0.,l) 

CALL  SYMBOL  ( .5,9.2, .10, 10HSTAT1C  P«  ,0.«10> 

CALL  NUMBER  U. 7.-9. 2, .in, PS  .fi.,1) 
call  symbol <.5,b.8,,i,amsmd«,o.*a5 
CALL  NUMHER(1.0,8.fl..‘..SHO,0.,2) 

CALL  SYMBOLU.8,B.8,.;,7HH!CRONS,0.»7) 

230  IF  (KPLOT  .EO.  0)  GO  TO  240 
KPLOTmO 

CALL  BLOT (16., “12.5, -3) 

GO  TO  250 
240  KPLOTsl 

CALL  BLOT (-1. <11, 5,-3) 

250  RETURN 

1100  FOHHAT  ( 4?Hn I  TER AT  ION  RFASHEO  MAX.  OF  500  FOR  DROPLET  .15, 

121H,  CALCULATION  STOPPED  1 
1120  FORMAT  <1HO,5X.A8.A10.4(8X,A8,A10|  / 

1  1H0,10X,FR.3,4(1BX,FB.3I , 1 X . 7MM1C30NS  / 

2  1H0,BX.1MX,10X,1HY.4(14X,1HX,10X.1MY)  / 

3  2X.5(5x,1HO,4X,2HTF «3X<2HVF , 2X,5mE*1 00.2H  /)  //l 

1130  FORMAT (?X,S(F10.2,F11.2.5X,)/7X,5(3X,F5.0*FP.O.F5.0,F5.0,?H  /  )) 

1180  FORMAT  (26H0LAST  DRUPLFT  CONOITIONS—  / 

1  6X,4HnROP,5X.2HTF.l?X,2HVF,14X,lHI),14X,lME  / 

2  5  (5x • 15 .4E ) 5.5  /)  /) 

2000  FORMAT  (llHO****  DROPLET  ,13,  9H  HAS  HIT  ,A7,  8H80UNDARY  ) 

2010  FORMAT  (BHODROPLET  ,13, 3H  t'»  FA.2,5X,8H  XI,  X2»  2F9,5»,.  M  IN) 

ENO 

SUBROUTINE  FEVAPC  (X  ,  Y  ,  Ml,  E*l,  EM) 

COMMON  /  K1HM  /  XI (21) ,X2(2l) «G1 (21 ,21) ,G2(21,21> ,RO(2l«21> «T<21« 
1  21).  IN,  JN.  R ( 21 )  .  FEVAP'21,21) 

COMMON  /  INPUT/  KFUEL,  OEO,  GAP,  PPM 
C  CALC.  AND  STORr  FUEL  EVAPORATION  RATE  FOR  GOSMAN  PROGRAM 
C 

IF  (Kl  .LT.  0)  GO  TO  50 
C  OFTERH1NE  WHICH  ELEMENT  VOLUME 

JN 1  *  JN  -  1 
DO  10  JJ»  2, JN1 
SI 3  (X2(JJ)  ♦  X2IJJ-D)  •  ,5 
S2«  (X2 ( JJ)  ♦  X2 ( JJ* 1 ) )  •  ,5 
IF  (  Y  ,LT,  SI  ,OR.  Y  ,GE,  S2)  GO  TO  10 

Js  JJ 

GO  TO  20 
10  CONTINUE 
GO  TO  40 
20  IN1«  IN  1 

DO  30  1I>  2, INI 

31«  (Xl(II)  ♦  XI  (II-ll)  •  ,5 

S?«  (X1(1I)  ♦  XI  !  11*1) )  •  ,5 
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t 

Hr 

jM 

X 

f 

A 


lF  Ix'VL'mrioftWVGF.  S2l  GO  TO  30 
I«  II 
no  TO  100 
30  CONTINUE 
C  NOT  IN  A  VOLUME 

40  IE  (K1  .EO.  0)  RETURN 
IE  (ISAVE  .EO.  0)  RETURN 
l*  « 

C  CALC.  EEVaP(I.J)  EOR  ISaVEi  JSAVE 

50  VOL*  (XI  ( ISAVE*U  -  XlIlSAVfl))  •  (X?  ( JSAVE‘1)  -X2  ( JSAVE-1 )  1  •  »ZS 
1  •  K(JSAVE) 

IE  (R(JSAVE)  .NE.  1.  .OR.  R(JSAVEM)  ,NE.  1.)  VOL*  VOL  •  6,38318 
OEM*  EH  -  EH1 

EEVaPIISAVE. JSAVE)*  EEVAPUSAVE.JSAVEJ  •  OEM  •  PPM  /  10000,  /  VOL 
EHl*  EH 

IE  (I  .NE.  0)  60  TO  60 
TSAVE*  0 
Kl*  P 
RETURN 
60  ISAVE*  I 
JSAVE*  J 
70  RETURN 

100  IE  (Kl  .NE.  0)  GO  TO  IIP 
Kl*  ) 

GO  TO  60 

110  IE  (T  .EO.  ISAVE  .ANO.  J  .EO.  JSAVE)  00  ~0  70 
GO  TO  50 
END 

SUBROUTINE  AIRPRP  (X.Y.VAIRH.VA1RV.TS) 

COMMON  /  KIMH  /  XI ( 21 ] t X2 ( 21 1 .01 ( 31 *21) *02 (21 ,21 ) »RO( 21 . 21 ) *T(21 * 

1  21).  tN  ,  JN 

C  NOTE—  COORD.  SYSTEM  OE  EVAP  IS  MORIZ.  *  TO  RIGHT,  VERTICAL  ♦  TO 
C  HOTTOM 

DO  10  J*1 , JN 
I«J 

IE  ( X2 ( J)  -  Y)  10.70,20 
10  CONTINUE 
20  IE  (I  .EO.  li  1*2 
KKK*) 

«0  T1  *  TAR(X.X1,T  (l.I).lN) 

Gil*  TAH(X.XI.G) (l.I).IN) 

621*  TAB(X,X1.G2(1.I).IN) 

ROl*  TA8<X.X1,R0(1.I) .IN) 

IE  (KKK)  60.80*50 
50  J«I 

I*  I  -  1 
KKK*  -1 
T2*  T1 
G)2«  Gil 
G22*  62 1 
R02*  RO) 

GO  TO  AP 

60  DEL*  (Y  -  X£ ( I )  )  /  (X2(J)  -  X2 (I ) ) 

TS  *  T1  *  (T2  -  T1  )  •  OEL 

DUM  «  ROl  ♦  (RO?  -  ROD  •  DEL 

ValHH*  (Gil  *  (~  -  Gil)  •  OEL  )  /  DUM 

VAIHV*  -  (621  *  (G ei  -  G21 )  •  DEL  )  /  DUM 

65  RETURN 
70  KKK*0 
GO  TO  AO 
80  TS*  T1 

VAIKH*  Gil  /  ROl 
VAIHV*  -  621  /  ROl 
GO  TO  65 
END 

•OECK  02 
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0VEHL47'rfMMfcT,2,0) 

PROGRAM  SPPYST 

PROGRAM  TO  CALCULATE  TRAJECTORIES  FOR  PNEUMATIC  IMPACT  ATOMIZER 


COMMON  /  fRAJ  /  VFUEL.TFUEL.TFUELF.SGF.FMU.RHOF. PS. PT.TS.TT. 

1  RHOAlR.AIRMU.G.VAIR.SMOl 

•  .XMAX.VMAY 

COMMON  /  INPUT  /  KFUEL.OEO. GAP, PPH. TITLE («> 

COMMON/  TARIFS  /  T1 <7 1 . VlSAIR (?) . T? (2.4) . SGFUEL (2.4) ,T3 (12. A) • 
IVISf UL(1?.4> ,NTAP1,NTAR?.NTAB3,NFUELS 
COMMON  /  TABLES  /  Tb (10) .SGTABS (*) tSRFTNS (10*4) .NTA85T .NTAB5S. 

1  01 ASMO (5) »NOI ASM.RnTAB (7) «FTAR<7) .NTABRF .Tar ( 11 ) .PRATAB ( 1 1 ) .NTA84 
COMMON/TARLES/  TOR (8) ,TkTa8<8> .NTA8R.T9R (10) .CPTAB (10) .NTA89 
DIMENSION  OIA(b) 

common  xli.xl2.oiai «o i a?. slope i .slope 2 

COMMON  NXXX/.AX1SMJ(10) .AXISMN(IO) .XXXX(IO) 

COMMON  /  OFVAP/  OUMMY  (20),0(5),TF(5).VF(5)  .VREL (5)  *  RN(5). 

1  C0(5) .ORAG(S) ,FN(5) .  CPIS) .OELQ  <5) *SG(5>  »FRHo (5) tDELTF (5) • 

2  TlMS<5) .FMASS *5) .ALPHA (5) »DELV(5) *E (St .0X.H(5>  tVFSAVE(S) »TFSAVE(5 

3  ) tUSAVE(S) .ESAVE(S) .0STARTI5) .SGSG60I5) .5060(5) »0ELM(5) 

A, OPTION, SPACE (6) 

♦  »WST (5) «EW(5) 


INPUT  OATA 

KFUEL*  FUEL  TYPE  (1.2, 3, 4) 
TFULLR*  FUEL  TEMPERATURF  (R) 
P3«  AIR  PRFSSURE  (PS1 A) 

T3Ra  AIR  TEMPERATURE  (R) 

PPM*  FUEL  FLOW  RATE  (LB/MR) 
OELP*  OELTA  PRESSURE  (PS1A) 


TITLE (8)s  10HMOOEL  NO  2 
C  2714-0  NT  HOI  »)8(ELTIT  2 

WRITE  (61,1010)  TITLE 
OPTION*0. 

READ  (60,1201)  VAG.KEUEL .TFUELR.P3 ,T3R«PPH,0ELP«TGAS.0I A4 
WRITE (61.120?)  VAG.KEUEL .TFUELR.P3. T3R. PPH. OELP.TG AS. 01 A4 

1201  FORMAT  (ER.O.I1.7E10.0) 

1202  FORMAT  (I1H0  Va  GUESS  .  5H  FUEL . 4 X » 6HTFUELR  .BX.?MP3  7X.3HT3R  • 

1  7 X.  3HPPH  .  6X.4HDELP  .6X.4MTGAS  .6X.4HD1A4  /  lX,Fli,4.I5t7F10.4) 

C  GEOMETRY  PARAMETERS  (IN) 

RFAD  (60.1210)FjETT0,01a1«D1A2.D1 A3.XL1 .XL2.SUM.FJETDD 
WR1TE(61.1?9«)FJET10.01A1.01A?.0IA3»XL1»XL2»  FjETOO 
NXXXXa  0 

IF  (01  A?  ,NE.  0.)  GO  TO  190 
C  RFAO  TABLF  OF  X  VS.  MAJOR  AXIS  ANO  MINOR  AXIS 
NXXXXa  OIA1 

RE AO  (60.1210)  (XXXX(l) .lal.NXXXX) 

WR1TEIM  .1370)  (XXXX(I)  .lal.NXXXX) 

1370  FORMAT  (1H0.10F10.3) 

READ  (60.1210)  (AXISMJ(I) .lal.NXXXX) 

WHITE (61, 1370)  (AX1SHJI I). lal.NXXXX) 

READ  (60.1210)  (AXISHN(I), lal.NXXXX) 

WRITE (61 .1370)  (AXISMN(l) .lal.NXXXX) 

OUMMY 1 1 ) a  3600. 

00  140  lal.NXXXX 

IF  (AXISMN(I)  .EO.  0.)  AXISMN ( 1 )  a  AXISMJd) 

O'JMMY  ( 2)  a  AXISMN(l)  •  AXlSMJ(l) 

IF  (OUMM’d?)  ,GT.  OUMmY(D)  GO  TO  140 
OUMMY (l)a  DUMMY (2) 
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j«l 

140  AXISMJdla  SORT  (DUMMY  (?  )  ) 

OlAla  AXISMJ(I) 

01  A2«  AXISMJ(J) 

0I*3«  AXISMJ(NXXXX) 

XLl*  XXXX(J) 

XL2»  XXXX(NXXXX)  -  XLl 
00  ISO  Jal.MXXXX 
XXXXdla  XXXX(l)  /  12. 

ISO  AX ISMJ  d  )  a  AXISMJd)  /  12. 

190  CONTINUE 

RF*0  (60.1210)  X1STHT,X?STRT,ThETS1. GAP. COGAP. XMAX.YMAX 
Nil  IE  161 .1*00)  XISTRT.X7STRT.THFTSV.GtP.C08AP.XMi1X.YMAX 
1400  FORMAT  ( IH0.6X.4HXL1P.6X.4HYL IP «2x<  8HTHET  L IP. 7X  .3HGAP ,5x, SHCOGAP. 
1  4X.4KXHAX.6X.4HYHAX  /  IX.  8F10.4  I 
OEOa  01  A3 

C  RATBUPa  CONSTANT  FOR  BREAK-UP  LENQlH 
RATBUPa  2,40 
PI«  3.14)59 
PI04a  PI*. 25 
P10576*  P 1 04/  144. 

Zfl«PI04*(nTAl*«2-FjET00**2) 

C  CONVERT  DIAMETERS.  LF.NGTHS  To  FEET 
01 A  la  DIA1  /I2. 

01 A2*  D 1 42  /12. 

OIA3a  01  A3  /!?, 

0 1 AAa  0IA4  / 12. 

AGAPa  COGAP  *  PI  «  0IA4  «  GAP  /  12. 

XLl«  XLl  /12. 

XL2«  XL2  /1 2. 

TFUELFa  TFUELR-  4S9.69 
T3Fa  T3r-  459.69 

C  FUEL  SPECIFIC  GRAVITY  (OMLS) 

SGFa  TAM ( TFUELF . T? (I .KFUEL) . SGFUEL ( 1 .KFUEL) .NT4B2 ) 

SG60F  aTAH(60..T2(l, KFUEL) .SGFUEL (1 .KFUEL) .NT4B2) 

C  FUEL  VISCOSITY  (CENTISTOKES) 

FMUa  TAB(TFUELF.T3(1«KFUEL) .VISFUL II .KFUEL). NTAB3) 

C  AIR  VISCOSITY  (LB/SEC/FT) 

AHUa  TAB (T3F .T  • VI SA IR.nTABI I 
WRITE  (61,1140)  SGF.FHU.AHU 
RHoab  2,69917  *  (P3  -OELP)  /  T3« 

RHOFa  62.428  *  SGF 
C  CALCULATE  GUESS  FOR  V  (MR), 

VAIRGa  VAG 

IF  (VAG  ,EO.  o.)  VAIRGa  SCRT(  9266.  •  OELP  /  RHOA) 

KNTVAbO 
GAMHAa.1  .4 
C4»  GAMMA-1. 

Cla  C4*,5 

C2»  GAMMA/  C4 

C3a  GAMMA  *.5 

CISa  (GAMMA  ♦  1.)  /  C4 

C5a  Cl  5  •  .5 

C)6a  CIS  -  1. 

Zl«  453.59/  1728.  /  2.54**3 
Z?a  PIOS76*FJETIO  **2  *3600. 

Z3»  ZB  «  3600.  /  144. 

Z4«  2.54  *12. 

SLa  .5  *FJET  10  *  2.54 
Z5«  39.37E-6  /12. 

OXa  .02  /12. 

XENOa  XLl  «XL2 
SLOPEI ■  (01 A2  -  OIAI)  /  XLl 
SL0PE2*  (01 A3  -  01 A2)  /  XL2 
Z7«  .2*PPH/3600. 

Z9aHR0F*P104/1.5 
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*■32,17? 

Z!0»G*G*hh*«53.35 
Zll«  FJETI0*.5 
VFUEL«  PPM  /  12  /  RHOF 
C  SURFACE  TENSION  I0YNE/CM) 

OD  310  Ul.NTAdSS 

310  DUMMY ( 1 )  a  TAar’FUELF.TS.SRFTNSll.n.NTABST) 

TAUb  TAR(<sr,(.f.  « S6T ABS. DUMMY. NT AR5S) 

ETAHb  FMU  •  SGF 
RHOGb  Zl  •  RHOA 
VTb  Z*  •  VFUFL 
KPRINTbQ 

BEGIN  CALC.  WITH  GUESSED  VALUE  FOR  V  (AIR) 

300  KNTVAa  KNTVA.l 

OMAb  RHOA  •  Z3  •  VAIRG 
QMRa  OMA  /PPH 
VRb  VAIRG  /  VFUEL 

SMDIb  SMOF  <TAU« ; TAR.PHOG.RMR.SL.VT.VR) 

271A-0  NT  ASAN  ,2  .ON  LEDDM  nOITASIMDTA 
)UAT(1R0S  bIKYMMUD 

/  RV  /  276000.  •  FGS  •  UMF  •  )1<YMMUD(  TROS  •  DITEJF  •  GEOS.  bIDmS 

)  RMO  1 


WRITE  (61.1110)  VAIRG.  KNTVA  .SMD1 
C  INITIALIZE  FOR  CALCULATIONS  THROUGH  THE  FUEL  TUBE 
00  320  lal.5 
D1 A  ( T )  a  0  T  A  SMD  CD*  SMD1 
0 ( 1 ) ■  01 A ( 1 )  •  ZS 

C  OROPLET  MASS.  CONSTANT  THROUGHOUT  FUEL  TUBE. 
FMASSI 1 ) aO ( I ) B*3*Z9 
W ( 1 ) aFMASS ( 1 ) 

WST (I ) aFMASS ( I ) 

Ell)*'. 

FN ( 1 ) aZ7/FMASS ( I ) 

TF  (I)a  TFIJELR 
320  VF  ( l )  a  VFIJFL 

BRUPLaRATRUP*  SMOl 
XNa  RRUPt.  *  ZS 
XSTARTa  XM 
XFRACT*  XSTART  ♦  Zll 
FRACTNa  0. 

TTeT3R 

PTeP3 

Vilrta  VAIRG 

DUHMYa  VA1W**2  /  TT 

FMACH2B  DUMMY  /  (Z10  -  DUMMY  *  Cl) 

C7«  1.  ♦  Cl  •  FMACH2 

TSa  TT  /  C7 

*  PS«  PT  /  C7  **C2 

RHOAa  2.69917  •  PS  /  TS 
WAIHa  RHOA  •  Z8  /  144.  •  VAIR 
WTOlawAlR 
KKaO 

RHOATRa  RHOA 
OOUCTa  OIAMTR  (XN) 

AlHMUa  AMU 

AOUCTa  PJ04  •  00UCT**2 

INTLRal 

FOWaO. 

OELTOaO. 

DPOOPQa  0. 
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FFMs  0. 

Clts(ADUCT-7B/l**.>/(Z8/l*«.> 

BEGIN  CALCULATIONS  OVER  interval  OX 

33V  CONTINUE 

331  C7«  1.  ♦  C1*FMACH2 

IF(KPHINT.NE.O)  WRITE 161 *2500) 

2500  FORMAT (1H0) 

BIGR«C7/U.-FMACH2» 

FM*cM2sfhaCH2*(1.*PIGK*(-2.*C11*2.»FFH/VTOT*OELTO/TT-2.«OPOORO)> 

335  FMACHs  SORT (FMACH2) 

336  KKsl 

TS«  TT/C7 

PS«  PT/  C7**C2 

VAIHs  FMACH*  SORT ( Z 1 0  •  TS) 

RHOAIRs  2.6991 7*PS/TS 
IF  IKPRINT  .EO.  0)  GO  TO  337 
DUMMY (11*  an  •  12. 

WRITE  (61,1250)  TS*PS*TT*PT»FMACH  .VAIR .DUMMY ( 1 ) 

337  IF  (XN  . GE.  XEND)  GO  TO  500 
TEMPRs  RHOA1R/AIRMU 
RNAIRs  VAIR  *OOUCT  •  TEMPO 
C  FRICTION  FACTOR  F 

IF  (RNA1R  ,LT.  RNTAB  111)  GO  TO  3*0 
Fs  TABIRNAIR.RNTAB  «FTAR  .NTABRF) 

GO  TO  3S0 
3*0  Fs  16./  RMA1R 
3S0  TEMPAs  RHOAIR  /  9266. 

CPAIRs  TAR  ITT, TQR.CPTAB ,NTAB9) 

OOs  0. 

TOTUPGsO. 

FLsO. 

FOSsO. 

FFMsO. 

NDCLASsn 
00  360  Isl.S 

IF(E(I) .GT..9B9999)  GO  TO  360 
CALL  EVAP  (INTER, 1) 

OIA(Tlsn(i)//s 

00«  DO  *  FNCIJ  s  OELQ(I) 

TOTURGsTOTDRG  «FN ( 1 ) spRAG ( I )  •  TIMS ( I ) 

FL  «  fL  ♦  V«FL(I)  •  TIMS ( 1 ) 

F0WSFUW.2 .# ( 1 .-VF ( 1 1 /VAIR) SOELM ( I ) «FN ( I > /WTOT 
FFMsFFM«DELM(l)#FN(I) 

360  CONTINUE 
INTtRs? 

C  ADJUST  DRAG  ANO  HEAT  FOR  FRACTION  OF  FUEL  INVOLVED 
TOTORGs  TOTDRG  •  FRACTN 
DOs  00  #  FHACTN 
FOWs)OW*FRACTN 
FFMsFFMAFR«CTN 

IF ( NDCLAS.GT.O )  FL»FL/NOCLAS 
WTOTsWTOT.FFM 

WAlRSTs  ADUCT  •  RHOAIR  s  FL 
XNPls  XN  *  DX 

IF  (XNP1  .LE.  KENO)  GO  TO  380 
XNPls  XEND 

380  DOUCTPs  OIAMTR  (XNPl) 

AOUCTPs  P10*  *  DOUCTPs*? 

OAREAs  AOUCTP-  AOL’-.T 
C6s  FMACH? 

Cl  !■  0AREA  /  ADUCT 
C12«  *.  s  F  •  OX  /  OOUCT 

C13s  T0T0RG  /(C3*  PS  •  ADUCT  *C61  /  1**»  «C12 
OELTOs  -00  /WTOT/CPAIR 
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OP  0  OPoV-£  C  6  •<  DEL  T  0  /T  T  «  C 13  ♦  P  D  wl 
c  set  AIR  PARAMETERS  AT  ENO  Cf  INTERVAL 
PT«  PT  *().♦  DPOOPO) 

TT*  TT  ♦  OELTO 

C  ADJUST  FUEL  PARAMETERS  FOR  FRACTION  INVOLVED 
FRACTI*  I. 

IF  (XNPI  .LT.  XFRACTI  FPACT1*  I.  -  (1.  -IXNPl«XSTARTI/lll>**2 
TEMPI*  FRACT1  -  FRACTN 
OO  *01  1*1.5 

IF  (E  ( 1 )  »GT • .909999) '60  TO  401 

TFCI)*  (FRACTN*TFII)  ♦  TEMP1*TFUELR  1/  FRACT1 

SGRESO*  SGRFCT  (ESAVEII)) 

SGI  1 1 ■  SGFCT  <TF  1 1 1 •  SGRESO) 

SG60III*  SGFCT  (519.69. SGRESO) 

W?«  W(I)  .  HELM (I)  •  FRACTN 
IF(*2.LT.1  .E.«*30)  *2*I.E-30 

0(1) * (6.*  W?  /  PI  /  SO ( T )  /  62.428) •*, 3333333333 
IF  (l  D.LT.I.EMO)  0(I)*I.F-10 

E ( I ) *  1.  -  (  0(1)  /  OSTART(I)  ) **3  •  SG(I)  /  $660(1)/  SGSG60II) 
IF (E ( I ) »GT * .59)  E 1 1 ) *.94 
IF  (F ( I)  .LT.  0.)  F ( I ) *0 , 

400  VF ( I ) •  (FRACTNWVF(I)  •  T£MPi*VFUEL  )/  FRACT1 
W(I)*P? 

EP ( 1 ) *1 ,-W ( I )/PST ( I ) 

401  CONTINUE 

40S  IF  (KPRINT  .EO.  0)  GO  TO  410 
WRITE  (61.1260)  TF 
WRITE  (61.1270)  VF 
WRITE (61 .1350)  F 
WHITEI61.240?)  FW 
WRITE (61 .2401 )  01 A 
WRITE (61 .2*03)  P 
1350  FORMAT (4H  E  ■  SFIS.S) 

2402  FORMAT (4H  EW«  SF15.S  ) 

2401  FORMAT (4H  0  ■  SFIS.S) 

2403  FORMAT (4H  W  *  5E15.5) 

410  XN*  XNPI 

AIRMU*  TAB  (TT  "459.69.TI . VISAIR.NTABI > 

OOUCT*  Ont)CTP 
AOUCT*  AnuCTP 
FRACTN*  FRACT1 
GO  TO  330 

FUEL  TUBE  CALC.  COMPLETE 

CALC.  EFFECT  OF  GAP 

500  CONTINUE 

AGAPVC*  PI  •  0. A3  •  GAP  /  12.  •  COGAP 
AGAPE*  PI  •  DIA4  •  GAP  /  12. 

FMGAP*  FMACH 

IF  (AGAPVC  .GE.  AOUCTP)  AGAPVC*  AOUCTP 
IF  (AGAPVC  .GE.  AOUCTP)  60  TO  502 
AGAP*  AGAPVC 

FMGAP*  FMACH  •  AOUCTP  /  AGAP 
IF  (FMGAP  ,LT.  I.)  GO  TO  501 
WRITE  (61.1410)  FMGAP 
CALL  EXIT 

501  FMAVE2*  (FMACH  ♦  FMGAP)  »*2  •  .25 
DUMMY ( j ) *  (It  ♦  Cl  •  FMAVE2)  /  (I.  -  FMAVE2) 

FMGAP*  EXP  (DUMMY ( I )  •  ALOGIAOUCTP/AGaP)  >  •  FMACH 
C7*  1.  ♦  Cl  •  FMGAP**2 
TS*  TT  /  C7 
PS*  PT  /  C7**C2 
VAIR*  FMGAP  •  SORT (Z10  •  TS) 

502  CONTINUE 

PRINT  1250. TS. PS.TT.PT. FMGAP. VAIR 
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If  (OIA*  .IE.  OIAJ  •'  6.  ■‘"GAP  /  12.)  GO  TO  503 
OGAP*  RHOAIR  •  VAIR  •  VAIR  /  9  66. 

CPIO*  (1.  -  I.  /  (AGAPE  /  AGAPVC ) **2  ) 

ETAO»  .5 

OPT*  CPIO  •  (1.  -  ETAOI  •  OGAP 
PT«  PT  -  OPT 

PS*  PS  ♦  CPIO  •  ETAO  •  OGAP 
VAIR.  VAIR  •  AGAPVC  /  AGAPE 
FMGAP*  VAIR  /  SORT  (Z10  •  TS> 

503  CONTINUE 

PRINT  1250 . TS. PS. TT.PT.FHGAP. VAIR 
C  CHECK  IF  GUESSED  V(AIR)  HAS  O.K. 

DELPC*  P3  -  PS 

WRITE  (61.1220)  OELP.OELPC.KNTVA 
IF  (A8SIOELPC-  OELP)  .LE.  .020*  OELP)  GO  TO  520 
C  NOT  WITMjn  TOLERANCE 

510  VAIMG*  VAIRG  *SCRT (OELP/OELPC) 

IF  ( KNTVA  ,LT.  10)  GO  TO  300 
WRITE  (61.1100)  KNTVA 
CALL  EXIT 

520  IF  (KPRInt  .NE.  0)  GO  70  550 
KPHINT«I 
GO  TO  SlO 

CALC.  AVERAGE  FUEL  VELOCITY  ANO  TEMPERATURE 

550  VFUEL«(VF(1).VF(2)«VF(3)*VF(A).VF<5)  )  *.2 
TFUEL*(TF ( 1 ) ♦TF (2) ♦TF (3) *TF (A) *TF (5)  ) *.2 
WRITE  (61,1300)  E 

WRITE  (61,1250)  TS. PS. TT.PT.FHGAP, VAIR 
QMR*  HAIR  /  PPH  •  3600. 

OCD«  .0063220*  WAIR  /P3/  AOUCTP  •  SORT(  T3R  /  OELP  •  PS) 
WRITF  (61,1515)  WAIP.OCD.OHR 

IF  (F  (1  )  ,GT .  .01)  GO  TO  580 
570  TFUELF*TFUEL“A59.69 

SGFbTaB ( TFUELF . T2 ( I . KFUFL I . SGFUEL ( I .KFUEL) , NTAB2 » 

FMU*  TAR ( TFUELF ,T3 ( I .KFUEL ) . VISFUL ( I .KFUEL ) .NTAB3) 
RHOF*62.A?R*SGF 
DO  560  1*1 .NTAR5S 

560  OIIHHV  ( I )  a  TAR  (TFUELF .T5.SRFTNS  ( I  «  I )  .NTAB5T) 

TAU*  T AB ( SG60F  , SGT AR5. OUHHY . NT AB5S ) 

ETAR*  FMU  •  SGF 
RHOG*  Z1  •  RHOAIR 
VT*  7*  •  VFUEL 
VR«  VAIR  /  VFUFL 

PPH*  PPH  •  (1,  -  (EW(1).EW(2)«EW(3)«EW(A)*EW(5))*.2) 

SL*  PPH  /  (3600.  *  RHOF  *  VFUEL  *  PI  •  DI*A)  *  Z* 

SLH*  SL  /  ZA  /  3.  H1E-6 
SMOi*  SMOF  (TAU. ETAR, RHOG. OHR.SL.VT.VR) 
FUELP«RH0F*VFUEL**2/9266. 

WRITF  (61.1230)  VFUEL. TFUEL. VAIR, TT.FUELP.SHOI.PPH.SLM 
C  CALCULATE  TRAJECTORIES 

IF  (XMAX  . GT .  0.)  CALL  TRAJ  (DIASMD) 

GO  TO  I 
580  SUM*  o. 

SUMI*  0. 

00  590  1*1.5 

SUM*  SUM  ♦  W(I> 

590  SUMI*  SUMI  ♦  ( TF  <  I  it  •  TF(3))  •  W(I)  •  (CPU)  ♦  CP(3>> 
TFUEL*  SUMI  •  .5  /  SUM  /  CP  <31  ♦  TF (3) 

GO  TO  570 

700  WRITE  (6I.I2A0) 

CALL  EXIT 
I  CONTINUE 
C 

1010  FORMAT  (IHI.BAIO  /) 
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1100  FORMAT  (2f*0N0  CONVERGENCE  AFTER'"7T571oH1TERAT10NS  ) 

1110  FORMAT  <  RHOV (AIR) *  F12.3, 1 10 .5X.4HSM0*  F6.2) 

11*0  FORMAT  ( 4H0SG*  E12.4.7M  (OMLS)  .4X.10HV1SC  FUEL*  E12.4.12H  CENT1 
1  STOKES  .4X.10MV1SC  AIR  ■  E12.4.10H  LB/SEC/FT  > 

1200  FOMMAT  ( 110.7F 10.2) 

1210  FORMAT  (BFJ0.3) 

1220  FORMAT  (  SMODELP*  F10.4.4X.  6H0ELPC*  F10.4.4X,  6HC0UNT*  IS) 

1230  FORMAT  (  THoVFUEL*  F6.2.2X.6HTFUFL*  F6.2,2X,5HVAIr*  F6.2f2X.3HTT* 

1  F6.1.2X.6HFUFLP*  F6.2. PX.4HSM0*  F6.2.2X, 4HPPH*  Fl  ,4,2X.4HSLM* 

2  FT. 3  ) 

1240  FORMAT  26H0MACH  NO  ITERATION  FAlcURE  ) 

1C50  FORMAT  (4H  TS*  F8.?,'iA.3HPS*  F8, 4 ,3X , 3PTT*  F8 .2. 3X. 3HPT*  FB.4.3X, 

1  2HM*  FH.S.3X.5HVA!R-t  F A. 2. 3X . *HX IN*  FA. 5) 

1260  FORMAT  (4H  TF«  5F1S.2) 

1270  FORMAT  ( *H  VF*  5F15.2) 

12B0  FORMAT  (5HPFUEL  .4X.6HTFUELR  .8X.2HP3  ,7X.3HT3R  . TX . 3HPPH . 6X 1 4HDEL 
IP  .7X.3H  .6X.4H0IA*  /  IS ,5F 10 .4. 10X .Fl 0.4) 

1290  FORMAT  (1H0.4X.5HJET10  .6X.4H01A1  .6X.4H0lA2.6X.4H0IA3.7X.3HXLl.7X 
1  • 3HXL2  .SX.  5HJE700  /  BF10.4) 

1300  FORMAT  (SHOE*  SF1S.5) 

1410  FORMAT  ( 1 3HPGAP  MACH  NO*  F10.5) 

1515  FORMAT  (15H0A1R  FLOP  HATE*  F11.5.4H  PPS.5X, 1 7H01 SCHARGE  COEFF.* 

1  F8.4  .5X.15HAIR-FUEL  RAT *0*  F10.4) 

END 

SUBROUTINE  TRAJ  (01ASM0) 

PRObRAM  TO  CALCULATE  TRAJECTORIES  FOR  IMPACT  INJECTORS 
COMM  ON  /  TRAJ  /  vfuel.tfuelr.tfuelf.so.fmu.rhoful.ps.pt.ts.tt. 

1RH0MR.AMU.G.VA1R!  T.SMD.XMAX.VMAX 
COMMON  /  7 NPUT  /  KFUEL. OEO. GAP, PPH, TITLE (R) 

COMiiON  /  OEVAP/  OUMMY(FO)  ,L)(5)  ,TF(5)  .VF(5)  .VREL(5) .  RN(5). 

1  C0(M.DRAG(5).FN(5).  CP <5) .OELQ !5) .SG (5) .FRHO (5) .OELTF (5) . 

2  TlMf.<S),FMASS<5)  .ALPHA  (5)  «0ELV(5)  ,E  (S)  .DX.W  (5) .  VFSAVE 15)  .TFSAVE  (5 

3  )»0SAVE(5)«ESAVE(5) .OSTART (5) «SGSG6U  C5) .5060(5) »0ELM(5) 
*.CPT10N,VA1HH,VAIRV,SINT,C0ST.0UM1,0UM2 
5.  WST(5).E*(5) 

COMMON  /PLOTNG  /  KPLOT 

c 

DIMENSION  »(ln?.5),Y(in?,5) ,NNN(5) .LABELS (6) .01ASH0I5) ,DI* (5) 
0IMENS10N  LARELF14) 

01MENS10N  ORO (102.5), eVP(102,5)»TTF (102.5) » VEF (102,5) 

C 

OATA  LAHELF/  10HSHELL0YN  H  .10MJPS— JPB  ,  10HJET  A-l  .3HJP4/ 
DATA  LABELS/  8H  0  -  20.BH20  -  40,  6H40  •  60,  BH60  -  BO, 

1  RHBO  -  ion.  10H  /  VOLUME  / 

C 

OPTION*) . 

00  3  1*1,510 

X(1)=0. 

3  Y ( I > *0. 

C  CONSTANTS  FOR  CALCULATIONS 

SI*  .01 
EL1M*  .96 
S«SI/12. 
ox*s 

C0N9*  39.37E-6  /12. 

C  CALCULATIONS  REGIN  •••••*#• 

C  0EF1NE  INITIAL  (XX, YY)  ANO  VAIR  (OISTANCE  IN  INCHES) 

XX*  5.  *  SMD  •  C0N9  •  1?. 

L*0 

CALL  AlRFLP  (XX.YY.VAIRST.L.VAIRHI.VAIRVD  a 

THETA1*  ATAN2  ( VA 1RV1 , VA IRHl ) 

ANGLIM*  1.39626 
VELL1M*  1.0 
XLIM1T*R. 
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XLlHlT-  ‘YMAX 
YLIMITb  XNAX 
SINTIsSINCTHETAI) 

COST ] «COS ( I hETAI ) 

MAXKsO 

DO  ISO  I«I >5 
C  DIA  IS  IN  MICRONS 

DI A ( I ) ■  D’ASMDCI)  •  SMD 
C  D  IS  IN  FFET 

DM)«  DIA(I)  •  C0N9 
E ( I ) ■  0. 

EW(  I)  ■  0. 

Wills  D( I) ••3*RN0FUL*3. 1 AIS926S  /  A.  /  l.S 
WSTCT) ■  NCI) 

VF  C I ) ■  VFHEL 
TF ( I) ■  TFUFLR 
INTERal 
THETAs  tmetai 
VAIHHs  V*I»H1 
VAIHVb  VAIRV1 
SINTbSJNTI 
COSTbCOSTI 
X(1«T)bXX 
YCI.DbYY 

DRD  ( 1  v  I )  sf)  ( I )  /C0N9 
EVPCJ.DbO. 

TTFC1 ,I)bTFUELR 
VFF  <  1  , 1 )  bVFUFL 
KOVERb] 

KOUNTb  ) 

NObO 

100  KOUNTb  KOUNT  ♦) 

IF  (KOUNT  .GT.  100)  GO  TO  110 

101  IF  (ECI)  .IT.  ElIM)  CALi.  EVAP  (INTER.  I) 

IF  (INTER  ,LT,  0)  GO  TO  120 

INTERb? 

Jb  KOUNT 

IF  (NO  .EO.  P>  js  KOUNT  -  1 
X(KOUNT,I)b  X(J,I)  *SI*  COST 
Y(K0UNT.I)b  Y(J.T)  *SI*  SINT 
Wills  W ( I )  .  OELM(I) 

EW(1)b  ),  .  W  ( I )  /  WST(T) 

0R0(K0UNT.I)s  D ( I ) /C0N9 
EVP (KOUNT  » I ) ■  EW(I)  •  100. 

IFCECII.LT.  .0C1I  EVP (KOUNT. I )s0. 

TTF (KOUNT .I)sTF(I) 

VFF (KOUNT .1 ) »VF ( I ) 

IF  (E(I)  .GE.  FLIM)  GO  TO  118 
IF  (X(KOUNT.I)  .GT.  XLIMIT)  GO  TO  I 19 
:«■  (Y(KOUMT.I)  ,GT.  YLIMIT)  GO  TO  11T 
IF  (Y(KOUNT.I)  .GE.  0.)  GO  TO  IOS 
WRITF  (61 .1  ISO)  I 
Y(KOUNT.I)sO. 

105  THETAS  AT  AN  (OUM1/OUM?) 

SI NTs  DUM1  /  VF ( I ) 

COSTa  OUH?  /  VF ( I ) 

C  NEW  AIR  VFL0CI1Y 
L«1 

CALL  AIRFLW  (X (KOUNT . I ) . Y (KOUNT *  I ) *  VaIRST.  L 
IF  (L  .EO.  1)  GO  TO  IOR 

C  FUEL  FOLLOWS  VAIR  OIRECTION  OUT  TO  XCORE 
THETAs  ATAN?  (VAIRV.VAIRH) 

SINT*  SIN(THETA) 

COSTa  COS (THETA) 

106  NO*  NO  *1 

IF  (NO  .GT.  3)  NO*0 


•  VaIRH.VAIRV) 
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IF  (no  .Nfl'O)  GOToTii 
GO  TO  100 
no  MOVER*KOVE»*l 

IF  (MOVER  ,LT.  10)  GO  TO  III 
WRITE  (61.1103)  I 
MOUNT*  KOUNT-1 
GO  TO  120 

C  COMPRESS  ino  PTS  INTO  50  ANO  CONTINUE 

111  00  112  J*A. 100.2 
KaJ/? 

ORO ( K . 1 ) aORO ( Jt 1 ) 

EVP (Ktl)aFVP(J.I) 

TTF(Ktl)aTTF I J. I) 

VEF(K,:)iVEF(J.I) 

X(K,T)*X(J«1) 

1 12  Y(K.I)aY(J.I) 

XOUnT  *50 

GO  TO  100 

1 IT  WRITF  (61.1151)  I 

1151  FORMAT  (  AH  DROPLET  I3.I9H  i*AS  HIT  LOWE*  MALL  > 

GO  TO  120 

HO  WRITE  (61,1170)  1 
GO  TO  120 

1 19  WRITE  (61,1160)  1 

120  NNN 1 1 ) a  MOUNT 

IF  (MAXK  ,LT.  MOUNT)  MAXKaKOUNT 
150  CONTINUE 

WRITE  (61,1180)  (I.TF(I) *VF(I) .0(1) »E(I) «Ial.5) 

WRITE  (61,1120)  (LABELS ( I ) .LABELS (6) »I«I*5) . ( 0 I A ( I ) <IaI,5) 

DO  158  Ial.S 
Na  NNN ( I )  .  1 

IF  (N  ,GT.  MAXK)  GO  TO  158 
00  156  JaN.MAXK 
ORDU.Da  0. 

TTF ( J. I ) a  0. 

VEF ( J, I) a  0. 

EVP ( J.l ) a  n. 

X ( J , T | aO, 

156  Y ( J. 1 ) a  0. 

158  CONTINUE 

00  160  Jal , MAXK 

WRITE (61,1 ’30)  (X(J»I)»Y(J,I)iI*)»5)» (080 (J» I) .TTF ( J.l) .VEF( J* I) 
♦  .EVP (J.l) .la], 5) 

160  CONTINUE 
C  PLOTTING 

CALL  PLOT  (1..1..-3) 

170  CONTINUE 
Oal  , 

IFlYHAX.GT.l. 1 .OR.XMAX.GT . I.A)  0*2 
IFIYWAX.GT.2.1 .OR.XMAX.GT .2.8)  0*4 
IFtYMAX.GT.A.l .OR.XMAX.GT .5,8)  0*8 
1F(YMAX.GT.8.1 .OR.XMAX.OT .11.5)  Oal 6 
XL*  1.50*0 
YL*1 .25*0 
OELXaXL/12. 

OELYaYL/lO. 

CALL  AX1S(0.,0.,1HX.-1.12.,0*,0.»DELX) 

CALL  AXIS  (O..O.,IHY,I,IO,<9O.,0,,OClY> 

YL*8.5 

00  180  1*1 .5 
N*NNN(I) 

X(N.l,I)a0, 

Y(N*I,I>*0. 

X (N.2, I) aOELX 
Y (N»2» I ) «OELY 

CALL  LINE  (X(I»I)»Y(I,I)»N»1»I0»I) 
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XL«4.5 

CALL  symbol  (XL.YL..10.I.0..-1) 

XL*XL*  .2 

CALL  SYMBOL  < XL  »YL  »  « 10 .LABELS ( I ) .0. *8) 

XL«XL«.80 

CALL  SYMBOL  (XL, YL*. 10.46, 0..-1) 

XL«XL*.2 

CALL  SYMBOL  (XL,YL..10.6HVCLUME,0.,6> 

XL«XL»1. 

CALL  NUMBER(XL.YL..1.DIA(I) ,0,,2) 

XL*  XL  ♦  .8 

CALL  SYMBOL (XL* YL* • 1 »7HMlcRON$,0  * .7) 

YL*YL*.2 
180  CONTINUE 

CALL  PLOT  (0. .-.5.-31 

CALL  SYMBOL  t.5,10.5,.20»TITLE,0.,80) 

CALL  SYMBOL  (1..10...10.21HINJECTOR  TRAJECTORIES  .0..21) 

CALL  SYMBOL  (.5.9.4..10.5HFUEL*  *0.*5) 

CALL  SYMBOL  (1.1.9.4,.10.LABELF(KFUEL>.0..10» 

CALL  SYMBOL  (2.5.9.4..10.7HFUEL  T«  • 0. *71 
DUM1»TFUELR 

CALL  NUMBER  t3»2,9.4,,ln,OUMl,0.,l) 

CALL  SYMBOL  (.5.9.2..10.10HSTATIC  P«  «0.,10> 

CALL  NUMBER  ( 1 *7*9.2* . 1ft. PS  .0**1) 

CALL  SYMBOL  (2.5.9.2«. lft,4H,  T*  *0.«4) 

CALL  NUMBER  (3*1 *9*2* * 10*TT  .0**1) 

CALL  SYMBOL  (.5.9.0..1C.13HAIR  VELOCITY*  .0..131 
CALL  NUMBER  <1.B*9.0«.1I)*VAIRST*0.*1) 

CALL  SVNROL(.5.8.8..1,*MSM0*.0.,4| 

CALL  NUMBER (1.0.8.8..1 «SM0*0. *2) 

CALL  SYMBOL (1*8*B*8**1 »7HMICRONS*0 . *7) 

230  IF  (KPLOT  *EO.  01  GO  TO  240 
KPLOT«0 

CALL  PL0T(16. .-12*5.-31 
GO  TO  250 
240  KPLOT*l 

CALL  PLOT(-l..n.S.-3» 

250  RETURN 

1100  format  (A?Hft  HERAT  ION  REACMEO  MAX.  OF  500  FOR  OROPLET  *15* 

121H,  CALCULATION  STOPPEO  ) 

1120  FORMAT  (lH0,SX,AB,A10,4(RX,AB,Ain)  / 

1  1H0,10X,P8.3,4(1BX,F8«31 • 1 X* 7HMI CRONS  / 

2  1H0.BX.1HX,10X.1HY,4(1*X.1HX,10X,1HY)  / 

3  2A»5(5X, 1H0.4X.2HTF, JX,2HVF»2X,5HE*100  >2H  /)  //) 

1130  FORMAT (2X,5(Fll),2,F11.2,5X«l /2X.5 (3X,F5«0*F6»0*F5»0 .F5.0.2M  /  I) 
1150  FORMAT  (8H  DROPLET  I3.19H  HAS  HIT  UPPER  WALL  ) 

1160  FORMAT  (8H  OROPLET  I3.19H  HAS  HIT  RIGHT  HALL  ) 

1170  FORMAT  (8H  DROPLET  I3.15H  HAS  EVAPORATED  ) 

1180  FORMAT  (25H0LAST  OROPLET  CONDITIONS—  / 

1  6X.4H0R0P.5X.2HTF.13X.2HVF*14X«1HD*14X*1HE  t 

2  5  (5X.I5.4L15.5  /)  /) 

END 

SUBROUTINE  AIRFLH  (XX.ZZ.UJ.KKK.UUH.UUV) 

ROUTINE  TO  CALCULATE  AIR  FLOH  FIELD  FOR  IMPACT  INJECTOR 

COMMON  /  INPUT  /  KFUEL. DEQ. GAP, PPH, TITLE (8> 

DIMENSION  TEMPAOt 

COMMON  /  TAB1  t  ZZU50I10) .ULUMAX(IO) ,XX1 (9) *Z50G(9) *UUMAXC(3) * 

1  NTAB6*NTA87*NTABB»NTAB9*SINTA8 (5) *C0STAB<5) 

OATA  ZZUSft  /  . 025*. 05*. 1*. 2. .3*. 4*. 5*. 75*1. 0*1. 57  /  , 

1  ULUMAX  /  .70**85*. 97,  1 .0 * .98. .95* .90. .72*^50 *0*  / 

OATA  XXI  /  0... 13. .26**39. .52. .65. .78. .91*1.0  / 

1  .  Z50G  /  l.«. 667, .511, .533*. 6*4, .8*5*1. 0,1. 18, 1,33  / 

DATA  SINTAB  /  -.l4B,-.l09,-,030.0.,0,  /.COSTAB  /. 989, .994, .9996, 

1  l.,3.  /,  NTAB9  /5/ 

OATA  UUMAXC  t  1,. .5*0.  /  .  NTAB6.NTA87.NTAB8  /  10.9.3  / 


TABLE  XXII.  (CONTD) 


* 

* 


~Z  Tmrrn  »  *  iTrrrrrm  r 

C  *LL  x  ANO  Z  VALUES  are  in  INCHES 

c  *  • . •  •••••• 

IF  (KKK  .NE.  0)  GO  TO  IfiO 

XCOkE*  0E9  •  (1.0923)  •*  (100. /UZ.) 

X1C0RE*  XCORE  •  2.5 
CONSTKa  .0702  •  X1C0RE  ••  .06 
CONI.  1.0923  •  UJ 
COM2*  GAP  •  .76  /X1C0RE 
C0N3>  GAP  •  1.07  /  XI CORE 
100  IF  (XX  .LE.  XCORE  >  GO  TO  175 
UMAX*  CONI  /  (XX/OEO)  *•  1.12 
SINPs  0. 

COSPa  1. 

IF  (XX  .LF.  XI CORE  )  GO  TO  200 
ZUSGa  CONSTK  •  XX  ••  .94 
IF  (KKK  .NE.  0)  GO  TO  150 
C  FUEL  BEGINS  ON  U50  LINE 
ZZ*  ZuSO 

150  OUMMYa  ll  /  ZU50 

UU*  TAB (OUMMYtZZU50«ULUMAX«NTA86)  •  UMAX 
GO  TO  400 
175  U“AX*  UJ 

OUMMYa  XX  /  XI  CORE 

StNpa  T AR ( DUMMY i XXI t SINTAB .NT AR9) 

COSPa  TARIOUMMY.XXl tC0STARiNTAB9> 

GO  TO  250 

200  OUMMYa  XX  /  XI CORE 

250  RATIOa  TAR  (OUMMY.XXl.ZSOG.NTAB?) 

TEMPA(2)s  RATIO  *  GAP 

TEMPA ( 3 ) a  T£MPA(2)  •  XX  •  C0N2 

TEMPA ( 1 ) a  TEMPA (2)  -  XX  •  CONI 

IF  (KKK  .NE.  0  .ANO.  XX  .CT-  XCCRE)  GO  TO  300 
C  FUEL  REGINS  ON  U50  LINE  ANO  STaYL  OUT  TO  XCORE 

ZZa  TEMPA ( 2)  C 

300  UIJs  TAB  (ZZ. TEMPA. UUMAxC.NTABB)  *  UMAX 
400  CONTINUE 

C  PROTECT  AGAINST  BEING  OUTSI0E  TABLES 

IF  (UU  .LT.  0.)  UU* 0 . 

IF  (UU  .GT.  UMAX)  UUsUMAX 
C  COMPONENTS 

uums  uu  •  cosp 
UUVa  uu  *  STNP 

IF  (XX  ,LE.  XCORE)  KKKa  -l  C 

RETURN 

ENO 

j 
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4 . 0  PROGRAM  USAGE 


Injector  performance  c  in  be  computed  at  critical  engine 
conditions ,  such  as  light- cff/  maximum  loading/  idle  points/ 
and  the  maximum  power  point.  The  venturi  and  impact  plate 
diameters  and  gap  width  can  be  varied  to  determine  resultant 
drop  sizes.  If  X  and  Ymax  on  the  last  data  card  are  set  to 

zero,  calculations  will  stop  after  the  SMD  is  computed/  with  # 

no  trajectory  calculations.  After  a  satisfactory  geometry  is 
determined,  spray  trajectories  and  evaporation  lengths  can  be 
computed  with  the  use  of  the  three  flow  options. 

Assume,  for  example,  that  a  typical  flow  field  has  been 
established  with  the  Gosman  2-D  program.  Spray  trajectories 
are  then  computed  with  Option  3.  The  length  required  for  the 
largest  drop  size  group  to  reach  95  percent  evaporation  can  be 
used  to  determine  injector  spacing.  Rates  of  evaporation 
along  the  trajectories  can  also  be  used  to  assess  the  amount 
of  fuel  that  could  be  expected  to  impinge  on  the  combustor 
walls . 

As  shown  on  the  data  sheet,  an  L-pipe  spraying  into  a 
swirler  cup  can  be  modeled  by  appropriate  input  to  obtain 
spray,  SMD,  and  evaporation  rates.  This  program,  however, 
does  not  compute  L-pipe  temperatures  (see  Program  1529) . 

5.0  PROGRAM  OUTPUT 

A  copy  of  a  typical  program  output  is  presented  in  Table 
XXIII.  A  plot  tape  is  written  to  plot  the  trajectories  for 
each  of  the  five  drop  groups. 

When  Option  3  is  specified,  an  output  tape,  identified  as 
TAPE2 ,  is  written  containing  the  total  evaporation  rates  in 

3 

lb/sec/ft  /radian  at  each  of  the  grid  nodes'  for  the  Gosman 
program  solution  that  supplied  the  two-dimensional  flow  field. 

This  program  and  the  Gosman  program  can  be  run  separately  with 
input  and  output  tapes  saved  between  runs.  The  two  programs 
can  also  be  run  together  in  a  combined  sequential  run  for 
repetitive  iteration  of  th®  two  progrpm  solutions . 
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TABLE  XXIXI.  CCONTD) 


APPENDIX  III 


AIR-BLAST  FILM  VAPORIZER 
COMPUTER  PROGRAM  1529 _ 


1.0  INTRODUCTION 

The  air-blast  film  vaporizer  program  computes  flow  condi¬ 
tions  in  a  pipe  used  to  inject  fuel  onto  the  wall  of  the 
corbustor  for  the  purpose  of  generating  a  fuel  film.  Pipe 
airflow,  fraction  of  fuel  evaporated,  and  pipe  temperature  are 
calculated.  Upon  completion  of  the  pipe  calculations,  the 
unevaporated  fuel-film  formation  on  the  combustor  dome,  film 
thickness,  and  evaporation  rates  are  computed.  Input  options 
include  a  noncircular  pipe  (Option  A)  and  provisions  for  by¬ 
passing  the  pipe  calculation  to  provide  a  means  for  computing 
only  the  film  evaporation  (Option  B) .  Film  evaporation  can  be 
computed  for  radial  flow  or  constant  width  flow,  as  on  a  flat 
plate  or  cylindrical  wall. 

2.0  PROGRAM  INPUT  WITH  L-PIPE  (OPTION  A) 

For  Option  A,  geometric  definition  of  a  circular  L-pipe 
is  shown  in  Figure  171.  Dimensional  data  is  entered  on  the 
Option  A  Data  Sheet,  Figure  172,  Cards  3  and  4.  Figure  173 
shows  the  required  geometries  for  entering  a  configuration  with 
noncircular  portions  approximated  as  ellipses .  Cards  8 A 
through  11B  are  entered  only  if  the  noncircular  input  is 
desired  (this  is  indicated  by  D2  blank  or  zero) . 


Other  data  used  in  calculations  pertaining 
only  include : 

to  the  L-pipe 

Data 

Card  No. 

(a) 

Fuel  code  (JP-4  or  JP-5) 

2 

(b) 

Fuel  temperature,  °R 

2 

* 

(c) 

L-pipe  inlet  pressure,  psia 

2 

(d) 

L-pipe  inlet  air  temperature,  °R 

2 

• 

(e) 

Fuel  flow,  lb /hr 

2 

(f) 

L-pipe  pressure,  drop,  psi 

2 

(g) 

L-pipe  external  flow  temperature 
and  velocity 

5,  6,  7 
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INPUTS  FOR  CIRCULAR  PIPE  FOR  CONSTANT  DIAMETER 
ODj^  =  OD2  =  OD3  (OUTSIDE  DIAMETER) 

D1  =  d2  =  D3  (INSIDE  DIAMETER) 

FUEL  TUBE  EXIT  IS  AT  D1 


Figure  171 


L-Pipe  Air-Blast  Vaporizer 
Circular  Pipe  Geometry. 


©<D  ©® 


L-PIPR 

FUEL  CODE— i 

4  •  JM  » 

l  '  "5  f  Tf VEL.  •* 

1  VAIR  GUESS  10  11 

INLET 

^STATIC 

TXI»,  L-P  IK.  Pl*L 

^L-PIPE 

h°KW 

yth.  dome 

THICKNESS, 

PSIA 

21 

inlet.  ls/h* 

31  41 

PSI 

51 

,,*Tu/rrJ/°p/iu  7 

INCH 

1 

{  o.  for 

OPTION  A) 


SUV  ACE 
FINISH. 
RMS  u.  IN 


INSERT  FOLLOWING  CAROS  ONLY  IP  D_  -  0.  OR  BLANK,  FOR 

•L-PIPE  GEOMETRY  OPT!'  N  FOR  NONCIRCULAR  PIPE  (ELLIPSE) 

SET  O,  ON  CARO  ©  -  NUMBER  OF  TABLE  VALUES  BELCN  (10  MAXIMUM) 

LEAVE  Dj.  DJ#  00.  OD^  ODj  BLANK  (Dj  MAY  BE  -  0.) 

X(I).  I  -  l,  N.  L-PIPE  CENTERLINE  LENGTH 


MAJOR  AXIS  LENGTH,  A  (I),  I  -  I.  N 


MINOR  AXIS  LENGTH,  B(I),  I  -  I,  N 


MALL  THICKNESS,  TH(I),  I  -  I,  N 


Figure  172. 


Film  Vaporization  Program, 
Air-Blast;  Option  A  (With  L-Pipe), 
Program  No.  1529  Input  Data. 
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1iF 


FUEL  TUBE  OD 
FUEL  TUBE  ID 


CIRCULAR 
PORTION 
A=B=DIAMETER 
AT  X ( 1)  -*X  (4) 


X(l) 

1  X(2)i 


’X{3)[ 


NONCIRCULAR 
’ORTION  OF 
PIPE  IS 
APPROXIMATED 
BY  ELLIPSES 


X ( 4 )  X (5) 


X  (6) 


X  (7) 


TO  USE  THIS  OPTION 
SET  D.,  =  NUMBER  OF  X,  A,  B,  T  SETS 
(EXAMPLE  Dx  =  N  =  7) 

LEAVE  D2,  D3,  QD1#  OD^,  OD3  BLANK 


MAJOR 

DIAMETER,  A (7) 


MINOR 

DIAMETER,  B(7) 


Figure  173.  L-Pipe  Air-Blast  Vaporizer 
Noncircular  Pipe. 


402 


The  last  item  ,  g,  is  a  tabulation  of  flow  conditions 
around  the  L-pipe  for  use  in  calculating  L-pipe  temperature. 
Six  sets  of  X,  T,  and  V  are  entered.  The  values  are  estimated 
from  primary-zone  flow  conditions,  or  can  be  parameterized  to 
determine  L-pipe  temperature  as  a  function  of  external  condi¬ 
tions  . 

Remaining  items  on  the  data  cards  pertain  to  the  film 
evaporation  calculation  and  include: 


Data  Card  No. 

(a)  h  ,  external  dome  heat-  2 

ex 

transfer  coefficient 

(b)  y^,  dome  wall  thickness,  inches  2 

(c)  Dome  surface  finish,  microinches  3 

(d)  Width  for  film  spread,  inches  4 

(e)  X  ,  length  limit  for  evapora-  4 

max 

tion  calculation,  inches 

(f)  IRAD,  indicator  for  flame  radiation  4 

IRAD  =  0,  no  radiation 
IRAD  =  1 ,  radiation  included 

Each  of  these  is  discussed  as  follows.  The  external  heat 
transfer  coefficient  can  be  entered  directly,  if  known.  The 
program  incorporates  an  equation  for  the  heat-transfer 
coefficient  in  an  annulus  and  requires  an  annulus  velocity  and 
hydraulic  diameter.  This  equation  is  activated  by  inputting 
the  velocity  and  hydraulic  diameter  as  a  negative  combined 
number  in  the  card  space  reserved  for  h  .  For  example,  if 
the  annulus  velocity  is  200  feet  per  second  and  the  hydraulic 
diameter  (2  annulus  widths)  is  0.5  in.,  a  negative  combined 
number  of  -200.5  is  entered.  The  integer  part  of  the  number 
is  the  velocity,  and  the  decimal  part  is  the  l.\  Iraulic 
diameter.  Note  that  hydraulic  diameter  is  limited  to  less 
than  1  inch.  The  value  of  hgx,  combustor  dome  thickness 

and  surface  finish  influence  the  heat  transfer  from  the  wall 
to  the  film.  This  influence  has  been  found  to  have  only  a 
minor  effect  on  evaporation,  since  internal  gas  heat  transfer 
predominates.  Accuracy  of  these  values  is  not  critical. 

Item  (d)  listed  above  is  the  width  for  fuel  spreading.  In 
a  normal  L-pipe  calculation  (Option  A)  this  is  set  to  0.0,  and 
the  film  is  assumed  to  spread  radially  from  the  impingement 


point.  Gas  flow  conditions  over  the  evaporating  film  are 
computed  for  a  radial  wall  jet  starting  with  L-pipe  exit  con¬ 
ditions.  The  primary-zone  gas  temperature  is  taken  as  the 
maximum  of  the  6  temperatures  tabulated  on  Card  6.  Radial- 
wall  jet  temperature  stays  constant  for  a  short  potential  core 
length,  then  mixes  gradually  from  L-pipe  exit  temperature 
toward  gas  temperature  as  a  function  of  radius.  Wall  jet 
velocity  decays  toward  zero.  t 

Item  (e) ,  X  ,  stops  the  calculation  when  this  radial 
max  c 

distance  is  reached.  Item  (f) ,  IRAD,  set  to  1  causes  a  radia¬ 
tion  inpu-':.  to  the  film  heat  balance.  All  radiation  conditions  > 

are  calculated  within  the  program. 

3 . 0  PROGRAM  INPUT  WITHOUT  L-PIPE  (OPTION  B) 

This  option  provides  for  film  evaporation  calculations 
independent  of  L-pipe  output.  The  input  for  Option  B  is  shown 
in  Figure  174.  Cards  1  and  2  are  identical  to  that  described 
in  Section  2.0.  Option  B  is  activated  by  setting  the  L-pipe 
pressure  drop  to  0.0  on  Card  2. 

The  fuel  film  can  be  considered  to  flow  radially  from  a 
central  point  (as  in  Option  A,  width  =  0) ,  or  along  a  constant 
width  flat  plate  (enter  plate  width  on  Card  3).  Flow  condi¬ 
tions  can  be  specified  for  a  radial  wall  jet  or  an  arbitrary 
input.  For  the  radial  wall  jet  conditions,  the  L-pipe  exit 
temperature,  velocity,  and  hot-side  ambient  gas  temperature 
are  entered  on  Card  3.  For  the  arbitrary  flow  condition, 

T  .  and  T  (Card  3)  are  left  blank.  Tabulated  sets  of 
air  gas 

plate  distance,  X,  air  velocity,  V,  and  air  temperature,  T, 

are  entered  on  Cards  4,  5,  and  6.  The  number  of  sets  of  X,  V, 

and  T  is  entered  on  Card  3  in  place  of  V  .  . 

air 

4.0  PROGRAM  COMPUTATIONS 

The  listing  for  the  program  is  given  in  Table  XXIV.  For 
Option  A  the  calculation  starts  at  the  L-pipe  inlet.  Fuel 
from  the  fuel-injection  tube  is  atomized  and  divided  into  five 
drop  groups.  Flow  conditions  along  the  L-pipe  are  computed  * 

considering  drop  evaporation,  drag,  friction  lo?.-  ,  heat 
transfer,  and  area  change.  The  airflow  is  iterated  until  the 
input  pressure  drop  is  matched.  The  main  output  information 
that  is  desired  is  the  L-pipe  airflow  and  discharge  coeffi-  , 

cient,  fraction  of  the  fuel  evaporated  in  the  L-pipe,  and  the 
L-pipe  temperature . 
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•o  TA ns  REQUIRED 


•L-FIFE 

W ILL  SURFACE 

AIR 

FROM  L-FIFE 

ZUhZilz 

^AMB  GAS, 

INITIAL 

FRACTION 

width  or 

itaiT 

FINISH 

l^XT 

EX*T 

HOT  SIDE  . 

EVAS 

FLAT  FLATE 

IR. 

11  RMS,  u  IB. 

21  * 

31  FT/SEC 

41  *R 

si  0  R  E  R  l 

SI  IH. 

•FOR  RACIAL  HALL  J*T  OFTIOB:  ORLY  CARDS®.®.©  UQU1US  I3OTT  n_.T„,  T.__,  V_T_,  Tx— ,  SET 

CALCULATES  CORDITIORS  rOR  COM*.  DOKE  al‘  *X*  ***  GA5 

FOk  ARR1TRART  FLOW  OPT  I  OR:  RADIAL  FLOW  OR  FLAT  FLA1E.  LEAVE  Trjr  AJU>  Tjm  BLARE  OR  CARD®  .  ERTEA 
CUMBER  OF  TABLE  VALORS  IB  FLACE  OF  Vrir  OR  Vrir  OR©  .  ADO  FOLLOWING  TABLE  VALUES  FOR  AIBIERT 
(HOT- SI  DC)  VELOCITY  AND  TEMPERATURE  (21  VALUES  MAE.)  AS  A  FURCTXOR  OF  X.  ROTE:  X  •  0  AT 
R  -  O.E  •0BtIT 


X  (X|  .  X  •  I,  B  INGRES  ALOffS  I^FXFE  CERKFLIME 


SET  WIDTH  •  0. 


0  •  NO  BAD 
I  •  W/BAD 


••IF  WIDTH  -  0.  FLOW  IS  RADIAL  WALL  JET 

IF  WIDTH  ft  0.  Them  IS  STRAIGHT  (FLAT  PLATE) 

IF  FLOW  IS  ALONG  CYLINDER  ID  WIDTH  -  CIRCUMFERENCE  OF  CYLINDER 


Ml  I  >0.1 
-  FUEL 


■w  '«■ 


Figure  174. 


Film  Vaporisation  Program,  Air-Blast 
Option  B  (Without  L-Pipe) ,  Program 
No.  1529  Input  Data. 


Film  evaporation  on  the  wall  is  computed  by  considering 
a  turbulent  velocity  profile  and  integrated  liquid  flow  rate 
to  obtain  a  film  thickness.  Heat  input  from  the  air  and  wal 
is  balanced  against  fuel  temperature  rise  and  evaporation. 
The  main  output  desired  is  the  rate  of  fuel  evaporation, 
dome  temperature,  and  final  length  for  complete  evaporation. 

The  main  references  for  the  computations  are  given  in 
29  6  30 

Shapiro  ,  Priem  ,  and  Kinney  .  Evaporation  procedures  of 
Priem  were  extended  to  provide  for  actual  fuel  distillation 
range  as  opposed  to  the  single  boiling-point  approximation 
used  in  most  references  on  evaporation. 

5.0  PROGRAM  OUTPUT 

A  typical  program  output  for  Option  A  ij  presented  in 
Table  XXV.  Initial  conditions  are  printed,  followed  by  flow 
conditions  at  points  along  the  L-pipe.  This  is  followed  by 
the  film  evaporation  conditions  as  a  function  of  length  or 
radius  on  the  dome 
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TABLE  XXIV.  LISTING  OF  PROGRAM  NO.  1529 


•0£C*  * 

PROGRAM  ARLAST  ( INPUT, OUTPUT, TAPE6n*lNPUT.TAPt61*UUTPUT) 

C 

c  program  to  calculate  properties  throughout  aim  blast  injector 

C 

c 

COMMON  /  QFLHVAP  /  XtfALLTd(21)  »V*ALLTB(21)  .T«ALLTr(Z1)  .ntabvt 

♦  .XLIMXX, IRAO 
COMMON  /DUMP  /  kPRINT 

common  /  TRAJ  /  VFUEL.TKUEL.tFUELF.SGF.FMU.RHOF.PS.PT.TS.TT* 

1  RHUAIR.AIRMU.S.WAIH.SMDl.TAMHMX 

common  /  INPUT  /  KFU£L.Ot<l.GAP.PPH.TlTLE(*>  .HEX. VTH,T3R,RmS 

C 

COMMON/  TABLES  /  Tl(7) .VISAIM(T) • T2 ( 2 • A) • SGFUEL (2, A) .T3(1A.A). 
1V1SFUL  04,4)  .NT  Ad  I  .NTAH?,NTA83.NFiJ£LS 
COMMON  /  TABLES  /  Td(lO) ,SGTAH5(4) ,SRF TNS ( 10.4) .NTABST.NTAB5S. 

1  OIaSmU(S) .NOIASM»RnTAH(7) .FT AH  <  7) .NTARRF • T  AR ( 1 1 ) .PHAT  AB (III .NT ABA 
COMMON/ 1 ARLES/  T8R ( M ) . TK I AB ( 0 ) .NT ARB.T9R (10) .CPTAROO)  .NTAB9 
01  MENS  ION  DIA(b) .XT AM (fc), T  AMd (6) » VAMH (6) 

COMMON  XL 1 <  XL2 .0 1 A I . 0 1  A? • SLOPE  1 • SLOPE  ? 

1 .  01 A3 ,001 .002.00 J.TLOPF 1 . TL0P£2 
COMMON  NXXXX«AA1SMJ(10) .AX1SMNI 10) . AXXX(IO) 

COMMON  /  OFVAP/  OUMMY (2n) ,0(5) ,TF (5) ,VF (5) » VREL  <5 )  •  RN(5). 

1  C0(5)  .ORAG(S)  «FN(5)  .  CP (5)  .0£LO(S)  .SG  (S)  ,FBHO (5)  .DE..TF  (5)  . 

2  TIMS (Si .FMASS(S) . ALPHA (S) .OELV(S) .E(S) «0X»d(5) .WFSAVE (5) . TFSAVE (5 

3  ) .USAVE(S) .ESAVE (5) .OSTART(S) . SGSG60 (5) « SG60 ( 5) *0ELM(5) 

A, OPTION, SPACE (6) 

♦  .*ST{5) ,E*(5) 

COMMON  /QEYAP1/  TAIPTHI7) « A1RKTB ( 7) • A IRMUT (7) , A IRCPT ( 7) .NT ABAR 
01MENSI0N  TOTAB(S) .TaBKMT (S) 

DIMENSION  RNLG1 0(7)  . T ANNO (7) 

C 

OAIA  OIASMO  /  ,6b 7, • B?4, 1.05, 1.331,1. 765  / 

OATA  NTAB1 .NTAH2.NTAB3.NFUELS  /  7.2.1*.*  /,NUIASm/5/ 

OATh  (Tilt), 1*1.7)  /  *0., 5*0. .10*0. ,15*0. .20*0. .25*0. ,30*0.  /. 
l(VISAlHd) ,l*i,7)  /  1.17E-5.I.89E.5,2.50E-5»3,01E-5,3.*BE-5.3.90E- 
25,* .29E-5  / 

DAT*  72  /2*. , 300. ,0., 220. .36, ,260. ,55. .200,  /, 

1  SGFUEL  /l. 1.. 975. ,B5,. 7625,. B  5, . 7375, .775 ,. 7125  / 

OATA  T3  /-‘O. ,0., 40.. 60.. BO., 100,, 150. .200., 250,. 300., 350. . *00. » 

1  410,.  420. « 

1  -50..0,, 40. ,60., HO, .100. ,125. ,150, .175, .200. ,225. ,250. , 

2  350..  450, , 

2  -5O..O.,4u.,6O.,R0.tI00,f 125. .150., 175. .200. .225, ,250. ♦ 

3  350..  330., 

3  -50 . » 0 . .40 . » 60 • » HO . . 1 00 , , 1 25 » , 1 50 • ♦ 1 75, . 200 » .225 , .250,  , 

4  350.,  450.  /. 

4VISFUL  /3000,, 210,. 55., 32.. 20,, 14, ,6,5.3, 6, 2. 1,1.35,. 9., 64, 

5  .60,  .57. 

5  23., 6.2.3. 25, 2. 5, 2, ,1. 65 d. 35, I, 15. ,9B * ,54 ,.75, .67, 

6  .45, ,335, 

6  19., 5. 4, 2. 9, 2. 3. 1. B5, 1. 55 .1,3, I. 08.. 92,, Bi,. 72,. 64, 

7  ,44,  .40. 

7  4.7,2. 15, I ,43, 1 .23. 1 ,04, .93. ,79, ,69. ,61 , .55, .49, .4*  , 

8  .31,  .23  / 

OAIA  T5  /  50. .100. ,150a, 200. ,250. ,300. ,350. ,400. ,450. ,500.  / 

OAT A  SGTAB5  /  .72* .76* .BO . .84  / 

OATA  NTAB5T.NTAB5S.NTABRF  /  10.4,7/ 

OATA  SRFTNS  /  21, .18, 2, 15.5,13, .10.6.8.2,5.9,3.9, 2. Ot. 2, 

1  23, 1,20. 5.18,0.15. 6.13.4,11, 1,9, 0,7, 0*5.1, 3.3, 

2  23. 9, 21. 8, 19, 6. 17. 5. 15. 4, 13, 4. 11.4, 9. 5, 7. 7, 6., 

3  24,9,22,9.21.0,19,1.17.3,15.5,13.8,12,1,10,4,8.8  / 
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TABLE  XXIV.  (CONTD' 


DAIa  HNrtiT/  3.£3.i.E*.7.E*.I.FS,3.tS; l.Efc.l.t?  /. 

1  FIM  /.011..008..006?&..005,.00**S,.00*1*.00*0  / 

OAT A  T9H  /SOO. .600. • TOO. • 800. ,900. » 1000. *11 00. .1200.. 1400.* 1600./* 

1  CPf  Ad  /.  2*05,.  2*1 0  ».  2*22». 2*-»0.. 2*62.. 2*90,. 2519,. 2550  ..2613, 

2  .2070/ 

OA I  A  NT  AR9  /  10  / 

DAT*  TOT  AB  /  660. ,  1060. ,1*60..  1860. «  2260.  /»  NkmETL  /  5  /*  « 

1  TABKMT  /  76.*  100.*  130.*  166.*  190.  / 

DATA  RNLGlO  /  0.*  1..  2.*  3.*  »..  5..  5.3979*  /,  NUIABN  /  7/. 

1  TABNU  /  .8*.  1,83.  5.10.  15.7.  56,5.  2*5..  520./ 

C 

1  HEAD  (60.1000)  TITLE 

IF  (EOF (60) )  999.2  ^ 

999  CALL  EXIT 

2  CONTINUE 

WHITE  (61.1010)  TITLE 
CCCCCCC 

NTAdVT*n 

option=o. 

CCCCCC 

HE AU (60.1201)  VAG.KFUEL.TFUELR.P3.TjH.PPH.DELP.hEX.TTH 
white  (61,1280)  KFUEL.TFUELH.P3.T3R.PPH.DELP. HEX, YTH 
1201  FORMAT (F9.0.I1.7F10.2) 

C  CHECK  (F  FUEL  TUHE  IS  TO  HE  OMlTTEO 
IF  (HELP  .tO.  0.)  GO  TO  800 
C  GEO'ETHV  paHaMETEHS  (IN) 

head  (60,1210)FJ£T10.01A1 ,01 A2 ,01  A3 . XLl *XL2.F JE TOD .HNS 
WH 1 (E(61.1290)FJETl0.01Ai.OIA2.0lA3*XLl»XL2.FJETOD«RHS 
C  CONVERT  RMS  FROM  MICHOINCHES  TO  FT. 

RmS*  HMS  /  12. E6 

HE AD (60. 1211)  XL3.XLA.001 ,002 .003. WIDTH. XLl MXX .OUME . IRAD 
WR1 T£ (61 , 1 3*0)  XL  •  • XL* .001 .00* «00J .W10TH.XLIMXX 
•  .HAD 

HEAD  (60.1210)  XT A(J 
WHITE  (61.1310)  X  T  AH 
HEAD  (60,1210)  TAMH 
WHITE  (61,1320)  TAMB 
READ  (60.1210)  VAMU 
WHITE  (61.1330)  VAMB 
NXXXXa  0 

IF  (0IA2  .ME.  0.)  GO  TO  190 
C  READ  1  ABLE  OF  X  VS.  MAJOR  AXIS  A-.0  MINOR  AXIS 
NXXXXa  0 1 A 1 

HEAD  (60,1210)  (XXXX(l) .lal.NXXXX) 

WH1 1 E (61 , 1 370)  (XXXX(l) .1*1. NXXXX) 

READ  (60.1210)  (AXISMJ(J) .lal.NXXXX) 

WHI TE (61.1370)  ( AX 1SMJ (I) .lal.NXXXX) 

HEAD  (60,1210)  (AXlSMN(l) .lal.NXXXX) 

WHI TE (61 .1370)  (AXISMN(I) .1*1 .NXXXX) 

00  1*0  lal.NXXXX 

IF  (AXISMNU)  .£0.  o.)  AXISMNU)*  AXISMJd) 

DUHmY  (  2)  a  AXISMNU)  *  AXISMJd) 

1*0  AX l SMj ( I ) a  SORT(oUMHY(2) )  i 

01  Ala  AXISMJ(l) 

c  set  other  parameters  to  avoio  mooe  error 

0IA2a  OlAl 
0 1  A3*  OlAl 
001*  OlAl 

002*  OlAl  » 

003*  DIAI 

C  WALL  THICKNESSES 

HEAD  (60.1210)  (AXISMN(I), 1*1, NXXXX) 

WRITE  (61, 1370)  (AXISMNU)  .1*1,  NXXXX) 

00  ISO  1*1 .NXXXX 
XXXAdi*  XXXXd)  /  12. 

AXISMNU)*  AXISMNU)  /  12. 
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TABLE  XXIV.  (CQNTD) 


r ct  axish-ju! — aktsrj m  r  rz. 

190  CONTINUE 

C  RATbUN*  CONSTANT  FOR  BREAK-UP  LENGTH 
RAIb'jP«-  2.*0 
TA^BM**  TAHH(l) 

00  1'JO  1*2.6 

IF  (TAMflMX  ,LT.  IAMBI!)  )  TaMBHX*  TAHOU) 

100  CONTINUE 
PI*  3. 1* IS® 

PI0*«  Pi*. 25 
PI0576*  PH)*/  U*. 

Z8*PI0** (01 A i **2-F  JETOO**?) 

C  CONVENT  0IaheTe«S«  LENGTHS  TO  feet 
0IA1*  OIAl  / • 2# 

01*2*  014?  /12. 

01 A3*  01 AT  /12. 

XL  1  *  XL  I  /U. 

XL2*  XL?  /1 2. 

XLJ*  XL3  /  1?. 

XL**  XL*  /  12. 

001*  001  /  12. 

ODH*  002  /  12. 

003*  003  /  12. 

XLINXXsXLINXX/12. 

P*S*  P3  -  OELP 
TFUELF*  TFUELN-  *59.69 
TJF*  fiR-  *59.69 

C  FUEL  SPECIFIC  GRAVITY  (OMLS) 

SGF*  TAH  ( TFUELF,  T2(  I.KFUEL)  .SGFUEH  I.KFUEL)  ,NTAB2) 
SGtuF  *TAH(60..T/(1.KFUEL) , SGFUEL ( 1 ,KFUEL) ,NTAH2) 
C  FUEL  VISCOSITY  (CENT1ST0KES1 

FMU*  I  AH (TFUELF. Til I.KFUEL) .VISFUL ( I.KFUEL) «NTA83) 
C  AIR  VISCOSITY  (LH/SEC/FT) 

AMU*  TAB ( T3F.T ' , VlSAIP.NTABl ) 

HR  1  IE  (61,11*0)  SGF .FMU, AMU 
HHOA*  2.69917  *  (P 3  -OELP)  /  T3R 
HHuF *  62.AP0  *  SGF 
C  CALCULATE  GUESS  FOR  V  (AIR). 

CCCCCC 

VA INGaVAG 

CCCCCC 

IF ( V AG.EO. 0, )  VA1RG*SORT(9266.*DELP/RHOA) 

KNTvAsO 
GAMMA* 1 .* 

C**  gahma-i. 

Cl*  C**.5 
C2*  GAMMA/  C* 

C3*  CitKMA  *.5 

CIS*  GAMMA  ♦  1.)  /  C* 

Cl  6*  CIS  -  1. 

Zl*  *53.59/  H?B.  /  2. 5***3 
Z2*  PI0576*FJETI0  *•?  *3600. 

23*  ZH  *  3600.  /  I**. 

Z**  2.5*  *12. 

SL*  .5  *FJETI0  *  2.5* 

Z5*  39.37F-6  /I2. 

OX*  .0?  /1 2 . 

XTOo*  XL1  ♦  XL?  *  XL3 
XENU*  XTOR  ♦  XL* 

SL0PE1*  (01A2  -  OIAl)  /  XLl 
SLOPE?*  (01  A3  -  0 1 A2 )  /  XL? 

TLOPEt*  (00?  -  OOl )  /  XLl 
TLOPE?*  (003  -  OU?  )  /  XL? 

Z7*  ,2*PPH/3600. 

Z9*HH0F  *P IOA/l .5 
G«32,I7* 


409 


o  o  o 


TABLE  XXIV,  CCONTD) 


Z1D*G*GAmmA*S3.35 
Zll«  FJET10*.5 
VFUEL*  PPM  /  Z2  /  RHOF 
C  SUHFACE  TENSION  (OYNE/CM) 

DO  310  1*1 .NTABSS 

310  OUMmYM)*  TAH(TFUELF.T5.SHFTN5(1*I).NTAB5T> 

TAU  =  T'.H(SGA0F  .SGTAH5,  DUMMY,  NTAH5S) 

ETAR*  FMU  •  SGF 
HHOtt*  Zl  •  RHOA 
VT*  Z*  •  VFUEL 
KPR1NT*0 

BEGIN  CALC.  WITH  GUESSED  VALUE  FOR  V  UIR) 

30C  KNTVA*  KNTVA* 1 

QMA*  RHOA  *  Z3  •  VAlHG 
UHH*  UMA  /PPM 
VR*  VAIRG  /  VFUEL 

smoi*  shoe  i tau  ,e  t ar .rmog.omr ,sl  » vt , vr> 

WRITE  (Hi, 1110)  VAIRG.  KNTVA  ,SH0l 
C  INITIALIZE  FUR  CALCULATIONS  THROUGH  THE  FUEL  TUBE 
00  j?0  1*1, S 
01 A ( I ) s  DIASMO(I)*  SMOI 
0(1)*  01 A ( I )  •  ZS 

c  oroplet  mass,  constant  throughout  fuel  tube, 

FMASS ( 1 ) *0 ( 1 ) **3*Z9 

CCCCCC 

W(1)*FMASS(I) 

CCCCCC 

wstidsfmassid 

E ( I ) *0, 

FN(1)*Z7/FHASS(1) 

TF ( 1 ) *  TFUELR 
320  VFIDs  VFUEL 

BRUPLsRATBUP*  SMOI 
XN*  RRUPL  •  ZS 
XSTaRT*  xn 
XFhACI*  XSTART  ♦  211 
FRACTN*  0, 

TT«Hh 
PT*P3 
TOJCT*  TT 
VAIH*  VAIRG 

CCCCCC 

DUMMY ( l ) *VAIH**2/TT 

CCCCCC 

FMACH2*0UMMY I 1 > / (Z I O-OUMHY ( 1 ) *C 1 » 

C7*  1.  ♦  Cl  *  FMACH2 

TS*  TT  /  CT 

PS*  PI  /  Cl  **C2 

HHOA*  2,00917  *  PS  /  TS 

WA1H*  RHOA  •  ZB  /  l*A.  •  VA1R 

CCCC 

Wlur*WAlR 

KK«0 

HHOAIP*  RHOA 

CALL  GEOH  (XN.OOUCTiTM.ODOCT) 

Th«  TH  *  1?. 

AIRmU*  AMU 

AOUCT*  PIO*  •  00UCT»«2 

INTER«1 

BFLAG*  0, 

CC 

FOW*0« 

CCCCCC 

0ELT0*0. 
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CCCCCC 

opoopo*o. 

CCCCCC 

FFN*0. 

CCCCCC 

CU*(A0UCT-Zft/1**.)/(ZA/I**.> 

CCCCCC 

NSXP** 

CCCCCC 

NPR1NT ■ 1 
C 

c  begin  calculations  over  interval  dx 
c 

cccc 

330  CONTINUE 
CCCCCC 

IFCKPHINT.NE.O.ANO.NPRINT.EO.I)  write (61 .2500) 

2500  FORMAT ( I  MO ) 

CCCC 

BiGMC7/(1  .-FHACH2) 

CCCC 

FMACM2*FMACH2*<1 .♦BIGK*<-2.*ClI.2.«FFM/wTOT*D£LTO/TT-2.»OPOOPO>  > 

CCCC 

331  C7*  1.  ♦  Cl *FMACH2 
CCCC 

335  FMACH*  SORT (FMACH2) 

336  KK*i 

TS*  TT/C7 

PS*  PT/  C7**C2 

VAlM*  FMACH*  SORT  <  Z 1  0  •  TS) 

RMOAIR*  2.6991 7*PS/TS 

CCCCCC 

CCCCCC 

IFUN.GE.XENO)  NPRINT«1 
IFOKPHINT.EO.O. OR. NPRINT. NE.l)  GO  TO  337 
DUMMY ( I ) *  XN  •  12. 

CCCCCC 

WRITE<6I,1250) TS.PS.TT.PT, FMACH. VAIR, DUMMY! I) .TDUCT 

337  TEMPB=  RHOAIR/AIHMU 
CCCCCC 

IF  ( XN  .GE.  XENO)  GO  TO  S00 
RNAIRs  VAIR  *OOUCT  •  TEMPB 
C  FRICTION  FACTOR  F 

IF  (RNAIR  ,LT.  RNTAB  <D)  GO  TO  3*0 
F*  TABIHNAIH, RNTAB  .FT AR  .NTA8RF) 

GO  10  350 
3*0  F*  16./  RNAIR 
350  TEMP A*  RHOAIM  /  9266. 

CPAIR-  TAR (TT.T9R.CPTA8,NTAB9) 

00*0. 

TOTORG*0. 

FL°0, 

CCCC 

FOW*0, 

CCCC 

FFM*0. 

NOCL AS*0 
00  360  1*1,5 

CCCC 

CCCCCC 

IF(E(I).OT.. 989999)  GO  TO  360 
CALL  EVAP  < INTER. I ) 

01 A 1 1 ) *01 1 ) /Z5 

CCCCCC 

00*0Q*FN( I ) *OELQ( I ) 

TOTORG«TOTORG  »FN< I ) «ORaG < I )  •  TIMS(I) 
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PL  »  fl'  ♦'VSElTD  vTt*tSTf» 

cccc 

FDF*FDV»2.*  < 1 ,-VF ( I) /VAIH) •0EIN( I ) *FH( I ) /NTOT 

CCCC 

FFH*FFM*DELM( I) *FN( I) 

NOCLAS*NOCLAS«1 
360  CONTINUE 
INTtR«2 

C  ADJUST  d«AG  AND  HEAT  FOR  FRACTION  OF  FUEL  INVOLVED 
TOToRG*  TOToRO  •  FRACTN 
DQ*  DO  •  FRACTN 

CCCC 

FD*«FON*FRACTN 

CCCC 

ffh*ffh*fractn 

cccc 

IF(NDCLAS.flT.O)  FL»FL/NOCLAS 

CCCC 

*tot»«tot*ffm 

WAlHST*  AOUCT  •  RHOAIR  •  FL 
XNPl*  XM  «  OX 

IF  (XNPl  ,LT.  XT 08  .OR.  8FLAG  .NE.  0.)  GO  TO  370 

XnPI*  XTOR 

BFLAG«1 

370  IF  (XNPl  ,LE.  XENO)  GO  TO  380 
XNP  i  XENO 

CCCCCC 

NPHINT«1 

380  CALL  GEOM  (XNPl .ODUCTP . TMP .OO0CTP >  , 

TMP*  THP  •  IP. 

ADUCTP*  Pt'j*  •  ODUCTP**? 

DARLAs  ADUCTP-  AOUCT 
Ch*  FMACM? 

Cll*  DAHEA  /  AOUCT 
CU«  A.  «  F  •  OX  /  UOUCT 

C|3a  TOTORG  /(C3*  PS  •  AOUCT  *C6)  /  1**.  *C12 

CCCCC 

C  ADJUST  FUEL  PARAMETERS  FOR  FRACTION  INVOLVED 

fracti*  i, 

IF  (XNPl  .LT.  XFRACT)  FRACTI*  1.  -  (1.  -< XNPl-XSTART) /Zll > **2 
TEMPI*  FRACTI  -  FRACTN 

CCCC 

DO  *01  1*1,5 

CCCC 

IF(E(I) .OT. .989999)  GO  TO  *01 
TF ( I ) «  (FRACTN*TF(I)  ♦  TEMP1°TFUELR  )/  FRACTI 
SGRLSO*  SGRFCT  (ESAVE(I)) 

SG ( I > *  SGFCT  (TF(I)t  SSRESO) 

SG60(I)*  SGFCT  (519.69.SGRES0) 

*2«« i  ( I ) -DELM ( I ) *FRACTN 

CCCC 

IF  (V2.LT • 1 . E— 3 0 )  *2«l.E-30 

0<I)«(6.»  *2  /  PI  /  SG1I1  /  6? .428) **.3 333333333 

CCCC 

IF(D(I) .LT.l.E-10)  02*1. E-10 

E ( I > *  1.  -  (  OH)  /  DSTaRTU!  I**3  •  SO ( 1 1  /  SG60(I>'  SGSG6<|d) 

CCCC 

IF(E(I).QT.  .99)  E ( I) *.99 
IF  (E(I)  .LT.  0.)  t ( I>  *0. 

*00  WF(l)«  (FRACTN*VF(I)  ♦  TEMP1*VFUEL  >/  FRACTI 
CCCCCC 

W(  I >*N2 

CCCCCC 

EW(1)*1.'W(I)/«ST(I) 

CCCCCC 

*01  CONTINUE 
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ccccc 

C  CALC.  OF  OELOO*  HEAT  THROUGH  OUCT  HALL 
OUHHY ( 1 )  *  XN  •  i;. 

VAMBX*  TAB  (OUHHY.  XTAR.VAMB.6) 

TAMBX*  TAB(OUMMY.  XTAH.TAM8.6) 

RAMBX*  2.69917  •  PAS  /  TAmBX 
♦  OUMMY (1)*  (TAMBX  ♦  TOUCT  )  r  ,S 

VI SCX*  TAB  (DUMMY. TaIRTR.AIHMUT.NTABAR! 

aihkx*  t«b  (dummy. tairtr.airktb.ntabari 

RNA*  VAMBX  •  OOOCT  •  RAMUX  /  VJSCX 
OUMMY ( 2) *  ALOG(RNX)  •  .4342944819 
QNU*  TArt  (OUMHY(2).KnlG10.TABNU.NUTABH) 

<*  HXsRNU  •  AlRKX  t  OOOCT 

V1SCY*  TAB  (TT.TAIHTB.AHMUT.MTABAB) 

A I HaY*  TAB  (TS.TAIRTB.AIMKTB.NTARAR) 

HNY*  OMA  /  Pio-  /  OOUCT  /  V1SCY  /  3600. 

CPY*  TAB  (TT.TAJRTH.AIRCPT.NTABAR) 

cccc 

PPY*  CPY  •  V1SCY  /  AJRKY  •  3800. 

H*  .023  •  9NY  ••.8  •  PRY  **.4  •  AJRKY  /  OOUCT 
HY*  H  •  (1.  ♦  .144  •  SQPT (  SORT(RNY)  )  »DOUCT  /  XN> 

IF  (Xk  .LE.  XL1*XL2  »  GO  TO  390 
OUhmy ( 1 ) *  Rma  /  2.89917  /  PS  •  TT 

DUMMY ( 3 ) *  (FRHO(l)  ♦  FRrtO(2)  «  FRHO(3>  ♦  FRH0(4)  *  FHHDlS)  >  *  .2 
OUMmY ( 4 ) a  (E  ell  ♦  E  (2)  ♦  E  (3)  ♦  E  (4)  ♦  E  (5)  )  •  .2 

DUMMY (5) =  (VF  (1)  ♦  VF  (2)  ♦  VF  (3)  ♦  VF  (4)  ♦  YF  (5)  )  •  .2 

TFAvE  *  (TF  (It  ♦  TF  (2)  ♦  TF  |3>  ♦  TF  (4)  *  TF  (5)  )  •  .2 

DUMMY  1 2 ) x  PPM  *  ('.  -  OhMMY (4)  |  /  DUMMY ( 3 ) 

DUMMY ( 7) *  TAB (  TFAVE-4S9.69, T3 ( ) , KFUCL ) • V I SFUL 1 1 .KFUEL ) .NTAB3) 

1  *  DUMMY (3)  /  b?. 428  •  .000872 
DUMMY (At*  SGMFCT  (DUMMY (4)} 

DUMMY (9) *  CPFCT  ' TFAVE. nUMMY (8) ) 

OUMMY (10)*  FLIGKF  (TFAVE) 

DUMMY  (8)  s  DUMMY  (5)  •  DOUC  T  «  OUMMYO)  /  CUMHY  (7) 

Dummy  (lit*  uummy(9)  *  Oi,mmy(7)  /  oummyM*)  •  3600, 

DUMMY ( 12 ) *  .0214  •  DUMMY (b)  **.8  •  DUMMY  I U >  *».4 
HH=  DUMMY (12)  *  OUMMY (10)  /  OOUCT 

HY*  (  HY  •  DUMMY ( 1 )  ♦  HH  *  DUMMY ( 2) )  /  (DUMMY ( 1 )  ♦  QUMMY(2)) 
390  FKMtT*  TAR  (TOUCT. TOT AH. TAaKMT,NKMeTL) 

OELTAT*  (TAMBX  -  TT  )  /  (1.  ♦  FKMET  /  TH  *  (1./  HX  /  OOOCT  ♦  1./ 

1  HY  /  OOUCT  )  ) 

TOUCT*  OELTAT  •  FKMET  /  TH  /  HY  /  OOUCT  ♦  TT 

CCCCCC 

OELUD*  HY  *  PI  •  OOUCT  •  OX  «  (TOUCT  -  TT)  /  3600. 

CCCC 

CCCC 

DELI  0* (DEL  10-0Q)/WT0T/CPA1R 
PTMPS*  PT  -  PS 

cccc 

DP00P0*-C3*C6* (OELTO/TT.Cl 3»FOM) 

CCCC 

IF (XN.EO.XTOH)  DPOOPO*0°OOPO*1 . 1*PTMPS/PT 
C  SET  AIR  parameters  AT  ENO  OF  INTERVAL 
PT*  PT  •(!.♦  OPOOPO) 

CC 

TT*TT*OELTO 

CCCCCC 

CCCCCC 

•  405  1FIKPR1NT.EO.0. OR. NPR1NT.NE.1I  GO  TO  410 

WRITE  (61.1260)  TF 
WRITE  (61,1270)  VF 
WRUE  (61,1350)  E 

CCCC 

WRITE (61,2402)  EW 
2402  FORMAT (4H  EW*  5F15.5) 

CCCCCC 
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nBiTE<hrr^<m_oi* 

2*01  FOHMATUM  0  «  SF1S.5) 

*10  XN«  XNF1 

cccccc 

IF(nPH1NT.EO.MSKP«1)  NPRINT«0 

CCCCCC 

NPKINT*NPRINT«1 

A1RMU*  1*0  ( 17  -*59.69«Tl . VISAlR.NTABl) 

CCCCCC 

ODOCT=  OOUCTP 
AOUCT*  aouctp 
1 M*  TMP 

odoct*  oonciP 
FRACTN*  fracti 

cccc 

oo  ro  330 

c 

C  FUEL  TUdE  CALC.  COMPLETED.  CHECK  IF  GuESSEO  V  (AIR)  WAS  OK. 
C 

500  OELPC-  P3  -  PS 

WR11F  l sj , 1220)  OELP. OELPC. KNTVA 
IF  (AbS (OELPC-  OELP)  .LE.  .020*  OELP)  GO  TO  520 
C  NOT  WITHIN  tOL£RANC£ 

510  VAIKG=  VAIMG  *SORT  (UELP/OELPC) 

IF  (KNTVA  .LT.  10)  GO  TO  300 
WRITE  (51.1100)  KNTVA 
CALL  EXIT 

520  IF  (KPRINT  .NE.  0)  GO  TO  550 
KPHlNTsl 
GO  TO  510 
C 

C  CALC.  AVERAGE  FUEL  VELOCITY  ANO  TEMPERATURE 

C 

550  VFUEL® ( VF  ( 1 )  ♦  VF  ( 2)  ♦  VF  ( 1)  ♦  VF  t  * )  «  VF  ( 5)  >*.2 
TF  UtL*  (  TF  ( l )  »TF  (2)  *TF  (3)  .TF(*).TF(S>  )*.2 
EAVL  * (E  ( ) I «E  (2)  ♦£  (3'*E  <*)«£  (5)  )*.2 
OEU=  OOUCTP  •  12. 
ccrrcrrrrrcrr 

EWrtVEs(EW(l)«FW(2)*EW(3)«EW(*)*EW(5) )*.2 

OMH=  WAIR  /  PPH  •  3t>00. 

QCU=  .0061229*  WAIR  /P3/  AOUCTP  *  SORT (  T3R  /  OELP  •  PS) 
WH11E  (61,1515)  WAIR. GCO. OMR 

IF  ( F ( I )  .GT.  .01)  GO  TO  580 
570  TFUtLF  =  TFlJEL-*59.69 

SGF  =T4R ( TFUELF.T2  < 1 <Kr UEL) .SGFUEL < 1 .KFJLL) .NTAB2) 

RH0F=62.4?«*SGF 

FUELPaRHOF*VFUEL**2/926ft. 

WRI1E  (61,  230)  VFUEL.TFUEL.VAIR.TT.FUELP.EAVE 

CCCC 

IF (tWAVE.LT . .99)  CALL  FLMVAf  ! E W A V£ , EA VE . W IOTH) 

GO  10  1 
580  SUM=  o. 

SUMlz  0, 

PO  590  1 3 1  ,5 
5U:i*  SL.l  ♦  W(\) 

590  SUM1«  SUM1  ♦  (TF(II  -  TF (3) )  •  W ( t )  •  (CP(I)  ♦  CP(3») 

TFUEL*  SUM l  *  .5  /  SUM  /  CP(3)  ♦  TF<!) 

GO  TO  570 

700  WRITE  (61,12*0) 

CALL  EXIT 

C  INPUT  FOR  FLMVAP 
800  TFUEL=  TFUELH 
PS«  P3 

REAU(60.1?1 DOEO.RMS.T  T , Va IR.TaMBMX. EAVE . WIDTH. XLIMXX, I RAD 
WRITE  (51 .IleO)  OEQ. RMS i TT.VAIR.TAMBMX. EAVE* WIDTH. XLIMXX 
*  .  IHAO 
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XLIhXX*ALTRKX7'1?_. 

RMS*  RMS  /  12. E6 
NTAoVT*  0 

IF  ( T T  .NF.  «.)  GO  TO  #10 
NTA»VT  =  VATR 

I  R EAO  (00.1210)  < XMALLT3 < I) » 1*1 .NTaRVT) 

WRITE <61. 1390)  (XWALLTB(I) .IsI.NTASVT) 

HEAD  (60.1210)  ( VwALLTRl I ) . I«1 ,NTA8vT) 

WRITE  <61 » 1 *00)  (VwALLTR(l) , 1*1 .NTaRVT) 

REAL)  (60.1210)  (TWalLTH(I)  ,I*1,NTaRVT) 

WHITE (61, 1*10)  (TWALLTBI I) .I«l ,NTA8VT) 

*  GO  TO  820 

81'J  HHOA1R*  2.69917  •  PS  /  TT 
CCCCCC 

820  CALL  FLMVAP(EAVE.EAVE. WIDTH) 

GO  TO  1 
C 

1000  FOHmAT  ( 8 A 1 0 ) 

1010  FOHMAT  (1H1.3A10  /) 

1100  FOHMAT  (21  HOMO  CONVERGENCE  AFT£R  » 15. 1 0H1 TERAT IONS  ) 

1110  FORMAT  (  s-tnV(AIR)*  F )  2. 3 , 1 1 0  «5X .4HSM0*  F6,2i 

1140  FORMAT  ( 4HU5G*  E12.*.7m  (OMLS)  .4X.10HVISC  FUEL*  EI2.4.12H  CENTl 
1  STOKES  .AX.UHVISC  AIR  3  E 1 2  .4 , 1  OH  LB/SEC/FT  ) 

1200  FORMAT  (110, 7F 10. 2) 

1210  FORMAT  (8F10.3I 

1211  FORMAT (7F10.3.E9.3.11) 

1220  FORMAT  (1H0.2T 13.4,15) 

1230  FOHMAT  (7H0VFUEL*  Fo. ? ,?X ,6(iTFUEL*  F6.2.2X.5HVA1R*  F6.2.2X.3MTT* 

1  Fb.l .2X.6HFUELP*  F6.2.2X.2HE*  F7.5) 

1240  rOHMAT  (26H0MACM  NO  ITERATION  FAILURE  ) 

1250  FORMAT  (4H  TS*  F8.2 .3X.3HPS*  F8.4 , 3X . 3HTT*  F8.2 »3X. 3MPT*  FB.4.3X, 
CCCCCC 

1  2HM*  FH.5.3X.5MVAIH*  FH.2.3X.4HXIN«  Ffl.5,4X,4MTD*  F8.2) 

1 2b0  FOHMAT  <4H  TF*  5F15.2) 

12  To  FORMAT  <4H  VF*  5F15.2) 

1280  FORMAT  (SHOFUEL  .4X.6HTFUFLR  .8X.2HP3  , 7X.3HT JR  j?X»3MPPM,6X,4M0EL 
1P.7x.3HHFX.8X.2MY  /  15.7F10.4  ) 

1290  FORMAT  (lH(),4X,5HJETin  .6X.4H0I41  ,6X,4M0IA2,6X,4hDlA3»7X,3MXLI  »7X 
1  »3HXL2»5X.5HJETOO»7x,3mRmS  /  8F10.4) 

1310  FORMAT  ( 6H0  X*  .6F12.3) 

1320  FORMAT  T6H(tT AMBa  , 6F1 2 .3) 

1330  FORMAT-  (6H0VAM8=  .6F12.3) 

13*0  format  ( )Ho.3X«3HXL3.7X.3HXL4,7X.3H001»7X.3MOU2.7X»3MOD3.5X»5MWIOT 
1h.5X.5HX  MAX.5X.5HI  RAO  /  7F10. 4.110) 

1350  FORMAT  (ah  F*  5F15.5) 

1360  FOHMAT  < 1 w. , 1 OOX , 3H TO*  F8.2) 

1370  FORMAT  (1M0.10F10.3) 

1360  FORMAT  ( 1 Hn  ,6X «3H0EU,7X .3HRMS ,8X ,2HTT » 6X ,4HVA SR »6X  »4HT AM8 .9X , 1  HE 
1  .5X.5HRI0TH.5X.5HX  M4X.5X.5H1  R*0  /  8F10. 4,1101 
1390  FOHMAl  ( 3H0X*  8F10.3  •  (3X.8F10.3)  ) 

1400  FORMAT  (3H0V*  HF10.3  /  (3X.AF10.3)  > 

*  1410  FORMAT  ( 3HPT*  8F10.3  /  (3X.8F10.3)  ) 

1515  FORMAT  (1SH0A1R  FLO*  RATE*  F11.5.4H  PPS.5*, 17H015CHARGE  COEFF.* 

1  F8.4  ,5X,15HAIR-F'JEL  RATIO*  F10.4) 

ENO 

SUdROUTINE  GEOM  ( X .OUMTH » T ,00) 

COMMON  XLl,XL2fOIAl.oiA?,SLOPfcl»SLOPE2 
»  1,  01  A3 , 001 , 002,003 .TLOPFl »TLO?E2 

COMMON  NXXXX,AXISMJ(10) , AXISMN (lO).XXXX(IO) 

IF  (NXXXX  .NE.  0)  GO  TO  100 
IF  (X  .GT.  XL1I  GO  TO  20 
01AMTR*  DI Al  ♦  SLOPE 1  •  X 
00*  001  ♦  TL0PE1  •  X 
10  T*  »00  -  OIAMTH)  •  .5 
RETURN 

20  IF  (X  .GE.  XL1  ♦  XL2)  GO  TO  30 
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OIAMTR*  01*2  ♦  $L0Pt2  *(X-  XLH 
00»  002  ♦  TL0PE2  •  (X  -  <Ll> 

GO  10  10 
30  OIAMTH«  01*3 
00«  003 
GO  TO  10 

100  OIAMTR*  T|R(X,XXXX iAXJSMJiNXXXX) 

T  *  TAR  ( X ,XXXX  « AXISMN.NXXXX) 

00*  OIAMTR  ♦  2.  •  T 

GO  TO  10 

END 

FUNCTION  SMOF  (TAU,ETAR,RHOG,OMR,SL,VT.VK1 

Smjf*  6.  *].♦£*  •S0RT(TaU/RH0G)*ETAR««.21  *d«»  « 065/QHR/SORT (OMR) 

1  »• 

lSORfl  SL/  ( VT**2  •(  VR  *<.5  *VR  -1.1  *1.)  )  ) 

RETURN 

END 

FUNCTION  TAB  (X.XX.YY.NTABI 
0IHENS10N  XX(l) •  YY(1) 

F»1 » 

IF  (XX(I1 ,GT.XX(2> 1  F*-F 

00  10  J.I.NTAB 

I=J 

IF  (F*(XX(II-XI )  10.  *0,20 
10  CONTINUE 

20  IF  (I.NE.l)  GO  TO  30 
1*2 

30  J*I-1 

OFL*XX ( I ) -XX ( J) 

IF  (OEL.EO.O.)  GO  TO  SO 
TAB*(YY(I)*(X-XXTJ) 1-YY(J)*(X-XX(I) d/OEL 
rf.torn 
*0  T  AB*YY (II 
RETURN 

SO  WRITE(6I.S0)  X.I.J 
CALL  EXIT 

60  FORMAT  (2AH0***EHH0H  IN  ROUTINE  T AB. E 1 5 .* » 21 5) 

ENU 

•OECK  B 

SUBROUTINE  FLMVAP(EWAVE.EAVE.WIOTH) 

EILM  VAPOR I/ER  MOOEL  FOR  AIR  BLAST  INJECTOR 

COMMON  /  QFLMVAP  /  XWALl Trt(21) ,V*ALLTB(211 ,TRALLTB(2Il .NTA8VT 

♦  .XLIMXX. TRAD 

COMMON  {  TRAJ  /  VFUEL , TFUEL , TFUFLF .SGF .FMU.RHOF .PS.PT.TS.TT* 

1  RhOAIR  .  AI RMU  »G.  VA IR  .SMI'- 1 .  T  AMBMX 

COMMON  /  INPUT  /  KFUEL. OEO. GAP.PPH. TITLE (8) .HEX. YTH. T3R.RMS 
COMMON  /  OEVAP/  CUMMYI201 ,0<5t ,TF(5I «VF(5> ,VREL<51 .  RNC5>. 

1  CO (5) .OR AG (5) .FN (51 ,  CP (51 «DELO <51 »SG (5) ,FRHO (51 .OELTF (5> • 

2  TIMS (51 .FMASS (51 .ALPHA (5) .OELV(S) »E (51 »D* (T 1 » VfSAVe (51 « TFSAVE (5 

3  1  .(JSAVK  (51  »ES*VE  (51  .OSTART  (51  .SGSG60  (31  »SG60  (51  .DEL*  (5! 

4. OPTION, SPACEI6I 

♦  .AST (5) .c*SPAC(5> 

COMMON/  TABLES  /  T 1 ( 71 . V I SAIR (7 1 » T2 <2,41 , SGFUFL (2,4 1 » T3 (14.4 1 . 

1 VI SFUL (14.41 ,nTAHI.NTAR?.nTAB3,NFUELS 
COMMON  /QEVAPI/  TAIHTH(71 ,AIHKTB(7l ,AIRMUT(7l ,AIRCPT(71 .NTABAR 
OIMENSION  WPTAB (6) » YPTAfl (6! ,UPTA8(61 
OIMtNSIOM  TMTTAK51  ,TKMTAH(5! 

OATA  *PTAB  /  1.,  10.,  30,.  202,.  300.,  1300.  /»  NPRYU/6/ 

04TA  YPTAB  /  1,45,  4.6,  8.2,  25,.  32, 8,  100.  / 

DATA  THTTAB  /  660.,  1060,,  1460, ,  I860.,  2260.  /»  NTKMTL  /5/ 

OATA  TKMTAB  /  76,.  100..  136.,  166, t  195,  / 

OATA  UPTAH  /  1,15,  4.3,  6.6,12.5,13.25,  16,5  / 

OATA  T*OPI  /  5,2831653  /,  R  /1545.327  / 

HRITE(61, 12001 
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TABLE  XXIV 


(CONTD) 


tccc 

ELIMX«.955 

ERNIES 

EXX«.96 

HtU«l4. 

LUH».S67*(I7.-HYO) 

HEAh*2./12. 

FUAk*.0o76 

TFL««3*60. 

PaTh*PS/I4.7 

EGA$*1 .-EXP  (-3.9E4*LUM*PATM»S0RT (FUAR*BEAM> /TFLM*»I .5  > 

SFG«P*  ( I  .♦ .8) /2.*EGAS*I . 7I4E-9 

0FLH*SFGVP*TFLM«*4 

IF(H£X.GT.  .)  GO  TO  20 

NV£X«-HEX 

VFXI«NVEX 

OF. XT  *  (-H£X- VE  XT )  / 12. 

HEXT«2O4O.*PS/I4.7»VEXT*UEXT/(T3«/1OOO>»»1.05 
RHOEX 1*2. 6991 7*PS/T3H 

HEX*.2<**RHOEXT*VEXT*.034/(REXT«».2)«3600. 

WR1 IE (61,101b) VEXT-OEXT.REXT.HEX 
1015  FOHhAT  !20H0 VEXTtOEXT *REXT «XCXa  .F6. 1 . F6.3,E I5.5.F7.2  ) 
20  CONTINUE 
CCCC 

FIOX«  |)EO  /  12. 

CONI  a  3600.  *  62.428 
CONJ*  3600.  •  TWOPI 
WIOTHa  alOTH  /  12. 

XX*U. 

RH*  .80  •  FIOX 

IF  (NTAHVT  .EO.  0)  GO  TO  4 
00  2  )*1, NTAHVT 

2  XVALLT8  ( I)  *  Xv^ALLTH  ( I )  /  12. 

TT*  TABIXX.XWAlLTB.TVAILTB.NTABVTI 
VAIk*TA6(XX.XWALLTB;VWAILT0*NTA0VT> 

RHOAIR.  2.69917  •  PS  /  TT 
4  CONTINUE 

SGHtSO*  SG°FCT  (0.) 

SG60F.  SGFCT (519.69, SGHFSO) 

VOLSTR*  PPH  /  CONI  /  SG60F 
PPHNa  kPH  •  (1.  -  EAVE) 

SGHESD*  SG«FCT  (EAVE  ) 

SGF  «  SGFCT  (519.69,  SGHESO) 

CCCCCC 

PPhn*PPh» ( l .-EoAVE) 

CCCCCC 

EWatWAVE 

VN«  PPMN  /  CONI  /  SGF 
E(1)«(V0LSTR  -  VN)  /  VO!  STC 

CCCCCC 

4RITE(61,1Q00)£(I> 

WRlTE(6',,i010>E« 

HHIN«  RR  •  12. 

CCCCCC 

00  a  I*I,lo 
KK*«I 

CCCCCC 

EP*I*.I 

ccrrrc 

IF ( tP,GT . .9)  EP*ELIMX 

CCCCCC 

IF (EV.LT ,EP)  GO  TO  9 

8  WHITE(6I,I020)XX,HRIN,EP 

9  CONTINUE 

AJHK*  TAB(TT,TAIRTB,AIHKT8»NTABAR) 

A I HMU*  TAB(TT,TAIRTB,AIRHUT,NTABAr) 


TABLE  XXIV. 


A  l  rcp=  TiiTTTT .  U1  RTb  •  A  l  aCp  T  •  NTI5nn 
RNJ*  VAIR  •  FIOX  •  RHOAlH  .*  A  1RHU 
PR  J*  A1MCP  •  A1RMU  /  A1RK  •  3600. 

CON2*  .364  •  RNJ  **.566*  PRj  **.36 
CON**  SORT (RNJ)  /  *3.5  /  COM3 
OX*.m  /12. 

T‘1«  TT 
VMS  VAIR 

TFIlls  TFUFL 
Xls  XX 

as*  nx  •  width 
km  r  *  it 

IN  f  tMs 1 
Ml*  PM 
KOUNTO*n 
LL*  o 

DEL  IF  (1) *n. 

go  to  *0 
10  LL*1 
UL*  Ul2 
YL*  YL2 

OUMMY(l)*  YL  •  12. 

X«llf  (61.10*0)  L'L.OUMMY(l) 

WR1  IE (61 . 1300) 

C 

C  BEGIN  CALCS.  OVER  INTERVAL  DX 
C 

30  IF  (NTAHVT  .EQ.  0)  GO  TO  35 

T M«  TAH(XX.XWALLTrt.TWALL  TH.NTaBVT) 

VM*  Tab (XX.XWALLTB.VWALLTU.NTAHVT) 

GO  10  3B 

35  CALL  F1EL01  (12.*XX,  TH.  VM) 

3B  CON1INUE 
CCCCCC 

OXS  =  DX 
OXC=.01/1P. 

0XY*YL*4. 

DXsAHINl (OXY.OXC) 
lF(tK2.GT.ELlMX)  OX=l./|2. 

KOUNT  F  *0 
3V  CONTINUE 
AS*UX*w IOTH 

CCCCCC 

Ml*  HM*  OX 
XI*  XX*  OX 

IF  (WIDTH  .EO.  0.)  AS*  TWOPI  •  RR  •  OX 
*0  1  =  1 

HMOGs  2.6091*  •  PS  /  TM 
C 

A IMMa  ?H. 966 

C  CHECK  FOR  FIRST  ENTKY  TO  ROUTINE  (InTER*1> 
IF  (INTER  .NE*  H  GO  TO  50 
C  ESTIMATE  next  station  CONDITIONS 

PPHiJs  PPRN 
TF  2=  TF ( 1) 

E2*  Ed) 

CCCCCC 

E«2=EW 
GO  TO  55 

C  ESTIMATE  NEXT  STATION  CONDITIONS 

50  CONTINUE 

PPH2*  2.  •  PPHN  -  PPHSV 
TF2*  2.  *  TF ( 1 )  -  TFSAVE(I) 

CCCCCC 

E2«E(1)*(E(1) -ESAVE ( 1 ) ) *OX/OXS 

CCCCCC 
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(CONTD) 


« 


} 
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TABLE  XXIV.  (.CONTD) 


tw^tw*  JEW-EJi*Vtl*UX/D*S 
tcccccccc 

TF2*TF  ( I) 

CCCCCCCCC 

IF(E2.GE.€LINX)  E2«EXX 

CCCCCC 

*  IF (EW2.GE.EL1HX)  EW2*EXX 

C  INITIALIZE  for  ITERATION  on  e 
SS  KOUNTC*  1 
CCCCCC 

OELtG*£w2-EW 
60  KOUnTs*  1 

,  C  INITIALIZE  for  ITERATION  on  tf 

OELTFG«  TF?  -  TF(I) 

EZ«  (HI)  ♦  62)  •  .5 
VANN*  VAPMF  (EZ) 

SGNtSo*  SGRFCT  (EZ) 

C  AVLNAGE  TEMPERATURES,  CALC.  PROPERTIES 

70  TFZ*  ( TF ( I )  ♦  TF2)  •  .5 
CCCCCC 

TFZ*TF (I) 

TMX*  (Th  ♦  TFZ)  •  .5 
PAS*  PASF (TFZ.EZ) 

IF  (PAS  .LT.  PS-.Ol)  GO  TO  80 
C  AT  SOILING  POINT. 

PAS*  PS  -  .01 

IF  (KOUNTO  .NE.  0)  GO  TO  80 
KOUNTO* 1 

DUMMY ( 1 ) *  XI  •  12. 

WRITE  (61.1110)  DUMMY ( 1 ) 

80  VAPK*  VAPKF(TUX.VAPM) 

VAPNU*  WAPNUF(TMX) 

cccc 

VAPLAM*VAPLMF(TFZ) 

CP ( I ) *  CPF C  T (TF Z .SURESO) 

VAPCP*  VAPCPF(TMX) 

SG ( I ) *  SGFCT (TFZ. SGHESO) 

FRMO(I)*  SG ( I )  «  S2.A2R 
FL10K*  FLIOKF  (TFZ) 

VAPU*  VAPOF(TMX.FS) 

IF  (VAPO  .LT.  .0000S)  VAPO*  .00005 
ALP*  PS  /  PAS  •  ALOG(PS  /  (PS  -  PAS)  ) 

C  AIR  PROPERTIES 

AlHK*TAU(TMX.TAIRTR.AlRKT8,NTAflAR) 

A1RnU*T»R(TmX, TaIRTB.AIRMUT.NTABAR) 
A1RCP»TaR(TnX,Ta1RTB.AIRCPT,NTaBAR) 

C  OlFFUSION  ZONE  PROPERTIES 

OX*  PAS  /  PS  *  .8 

QJ*  1.  -  OK 

UKMXs  QJ  •  AIRK  ♦  OK  •  VAPK 
OMUMX*  OJ  •  A1RMU  *  QK  *  VAPMU 
OMMXs  QJ  •  AIHM  ♦  OK  •  VAPM 

*  QCPMX*  (OJ  •  AIRM  *  AIRCP  ♦  QK  *  VAPM  *  VAPCP)  t  QMMX 
QPHOMX*  PS  *  QMMX  •  U*.  ✓  R  /  TMX 

SC*  OMUMX  /  VAPO  /  QRHOMX 

PRr  QCPMX  •  OMUMX  /  OKMX  •  3600, 

KOUnTA*  0 

FULMU2*  TAB (TF2-A59.69, T3 ( I .KFUEL) .VISFUL ( 1 .KFuEL) .NTAB3)  •  I.075E 

*  l  -5 

SGKESO*  SGWFCT  (EZ) 

SG2*  SGFCT  (TFZ.SGRESO) 

RHUL*  6Z.A28  •  SGZ 
OLPPRG*  PPH2  -  PPHN 
OUMMY(I)*WIOTH 

IF < WIDTH. EO.O.)  DUMMY (I ) *TW0Pl*RR 

FMU1  *TA8  (TF  (1 )  “A59.69, T3  (I  » KFUEL)  tVISFl'HI  »KFUEU  »NTAB3)*I  .075E-5 
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SGklsSWfCKEd)) 

SPblsiGFCT* IF‘I» .S6H1> 

*P1=PP>W<360O.*oiimmy<  1 )*FMUI*$PGI*62.*2B> 

Yri~TA'j(*Pl  .MPIAP. YPTAR.NPNYUJ 
100  0  )Mn  (V*  « (PTH 

I."  <*IOTH  .FO.  0.)  DUMMY  (  1 )  *  TXOPJ  •  R) 

M?^=PpM2  / ( 3600 •  *  DUMMY ( | )  •  FULNU?  •  RM0L) 

YP2*  TAM  <MP2.«PT*R«YPTAH.NP*YU) 

UP2»  T*M  ( *P2<  «PT  AH.UPT AG.NPMYU) 

cccc 

C  •  *  •  •  •  TEMPORARY  only  •••***** 

R£XsVM*Rl *URHQMX/GMUMX 

IF(NTABVT.EQ.O)  ONUH«CON2»(HI/FIDX)**.i3* 

IF  (NTABVT.NE.il)  QNUH*.0295*PR**.6*REX**.8 
MMULTsI .0 

IF(NT*8VT.EO.O.ANO.YPI.GE.2I> 

♦  HNOLI*I .♦ (*0.*PPHN/CON3/HI ) 

IF(NTahvT.ne.0.aho.yP1.ge.21> 

♦  MMULT«l.*(*0.*PPHN/360n/MIOTH) 
qnuh*qnuh*hmult 

cccc 

C  *  *  •  •  •  TEMPORARY  ONLY  •••*•*•* 

HIN*  QNUH  •  UKMX  /  FIDX 

CCCC 

IF(nTABVT.NE.V)  HlNaQNUH*GKMX/RI 

F2*  P.  •  HIN  /  ORHOMX  /  VM  /  OCPMX  /  3600. 

♦  /HMULT 

UL2*UP2  •  SORT  <F2  •  .5  •  RmOG  /  RHOLI  •  VM 
YL?*YP2  •  UP2  /  Ui.2  *  FULMU2 

IF  (LL  .CO.  C)  GO  TO  10 
QNUM.  QNUH  •  (SC  /  PR)  **.* 

FlDT*  ONUH  •  QKMX  /  HIN 
ULZ*  (UL  ♦  UL2)  •  .5 

the*  nx  /  ULZ 

C  CHECK  IF  DEL*  IS  BEING  CALCEO  BY  BOILING  EQUS 

IF  (KOUNTQ  .GT.  1  .OR.  (KOUNTQ  .EO.  1  .ANO.  INTER  .EO.  2>  >  GO  TO 
1  300 

DEL**  VAPO  •  VAPM  *  AS  *  ONUM  •  PAS  •  ALP  /  R  /  TMX  /  FIOT 

ccccccc 

♦  *1*4. 

cccccc 

IF(£*2.GE.ELIMX)OEL**0. 

IF (tvp.GE.FLlMX,  E*/*EXX 
IF  (KOUNTO  .EO.  1)  GO  TO  300 
PPH2*  PPHN  -  DEL*  •  3600. 

IF  (PPH2  ,LT.  0.)  PPH2«  0. 

OLPHHN*  PPH2  -  PPHN 

IF  (ABSIDLPPHN  -  OLPPMG)  .LE«  .01  •  ABS(DLPPHN)  )  GO  TO  300 

DLPPHG*  OLPPHN 

KOUnTa*  KOUNTA  «l 

IF  (KOUNTA  .LT.  25)  GO  TO  100 

CCCCCC 

250  *RITF (61,1100) KOUNT A .KOUNTB .KOUNT C .KOUNTO.KOUNTE »RR»E2*E*2 
DX*DX/*. 

KOUNTF*KOONTF*1 
IFfKOUNTF.LT.10)  GO  TO  39 
GO  10  900 
300  KOUNTE*  0 

YZ*  (Yl  ♦  Y(_?)  *  .5 
TMETG*  T3R 

320  FKMET*  TAB  ( TMETG. TMTTAfl*TKMT AB.NTKMTL) 

CCCC 

AGEG* ( TFLM/TMETG) **I ,5 

OUMMY(I)*AGEG*EGAS 

IF ( DUMMY (l).GT.I.O)  OUMmY(I)«I.O 

AGEG*OUMMY(l)/EGAS 


420 


a 


TABLE  XXIV.  (.CONTD) 


t 


b 


i 


r 


*)R*iTT 

IF(lRAO.EO.l)  OR«  0FL*«-SFGNP»AGEG*rH£T3*** 

03H*1 ./<1./HEX».S*YTH/FKMET) 

cccccc 

IF(t»2.GE.ELINX)  60  TO  121 

UHF«1  ./  < .5»YTH/FKN£T»  < .5»YZ»RMS) /FLIOK) 

THOT«TFZ 
GO  TO  322 

321  CONI InUE 

UHF«1,/(.5»YTM/FKMET»1./HIN) 

THOIaTN 

322  CONTINUE 

TH£T«  ( 0R*IJ3M»T3R»UMF*TH0T)  /  (U3*4*UnF) 

CCCC 

IF  (  A9S  (TMETG  -  THET)  .LT.  .0001  •  TMETQ  )  GO  TO  350 
TM£TGs  TMFT 

kounte*  kounte  «1 

IF  IKOUNTF  ,GT.  25)  GO  TO  250 
GO  TO  320 

CCCC 

350  Q1*UMF*AS* ( TMET-THOf ) 

360  Z«  OEL*  •  VAPCP  *  FIOT  /  QKMX  /  ONUM  /  AS 
ZZ«  1. 

IF  (Z  ,GT.  .00001)  ZZ>  Z  /  (EXP(Z)  -  1.) 

02«  AS  •  QKMX  •  QNUH  •  (TH  -  TFZ)  *  ZZ  /  FIOT 
QVZ*  (0)  *  02)  /  3600. 

IF  (KOUNTO  .NE.  0)  Go  TO  T50 

CCCCCC 

OELTF ( 1 ) a ( QVZ-DEL<**VAPLAH)  *TME/AS/YZ/CP(  1> 

CCCC 

CCCCCC 

IFIEU2.GE.EUIHX)  OELTFIDaO. 

TF2a  TF(1J  ♦  OELfF(l) 

ccccccc 

IF(KFUEl.E0.*.AN0.TF2.GT. 1092.9)  TF2*i<)92.8 

ccccccc 

IF (KFUEL.NE.4. ANO.TF2.GT <1210.4)  TF2al2l0.A 

CCCCCC 

CCCCCC 

0ELTF(I)aTF2-TFII) 

CCCCCC 

2000  FONMAT(1X,10F12.A) 

375  IF  (»US(  OELTF 1 3 )  -  OELTFG)  .LE.  .01  •  ABS (OELTF ( 1 >) )  GO  TO  A00 
OELfFG  *  OELTF 1 1 ) 

IF  UBS(OELTFG)  .LT.  1.)  GG  TO  *00 
KOUNTrt*  kounth  *1 
IF  (KOUNTH  .LT .  25)  GO  TO  70 
GO  TO  250 

♦00  SGRESO*  SGWFCT  (E2) 

SG60  ( 1 ) a  SGFCT  (51*. 69. SGRESO) 

VOLNPla  PPH2  /  CONI  /  SG60 ( ) ) 

E2SVa  £2 

CCCCCC 

EM2SVaEW2 

E2« ( YOLSTR  -  VOLNPD  /  VOLSTR 

CCCCCC 

IF (QELM.NF. 0. )  EW2»(PPM-PPM2)/PPH 

CCCCCC 

IF (L2.GE.ELIMX) E2>EXX 

CCCCCC 

IF<EW2.GE.ELIMX)EW2»EXX 

CCCCCC 

0ELE*E*2-EW 

CCCCCC 

IF(ASS(OELEG.OELE).LE.  ,l*ABS(OELE) (  GO  TO  500 
0ELEG«  OELE 
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TABLE  XXIV 


(CONTD) 


ir  .  nSrorL?^>  .LT.  f.F-B)  'So' TO  506 
E2«  !E2  ♦  E2SV)  •  .5 

CCCCCC 

£W2«(EN2*EN2SVI*.S 

CCCCCC 

OEi.EA«EM?.£w 
*50  KOUnTc*  KOUNTC  ♦  1 

IF  (KOUNTC  .LT.  25)  GO  TO  60 
GO  10  250 

500  TFSAVE ( I ) ■  TF(l) 

ESaVE ( I ) ■  E(I) 

CCCCCC 

EnSAVE»EN 
PPNSVa  PPHN 
TF ( I ) »  1F2 

IF  !E2  .LT.  E(I)  )  E2«  E(I) 

E(I)«  Et 

CCCCCC 

EN*EN2 
PPriNa  P PH? 

UL«  UL2 
YL«  VL2 
INTER*  2 
NSAVfs  NR 
Rrt«  p 
XX«  XI 

IF (kNT.N£. A. ANO.E«2.LT .FLIMX. aNQ.KOUNTF .EG.O)  GO  TO  550 
DUMMY ( l )  •  XX  •  12. 

0UMMYJ2)*  YL2  •  12. 

CCCC 

RS«R1*12. 

KLC»KIOTrt 

IF(«LC.EO.O.)  KLC«TW0PI*H1 
WFPi/L«PPH?/WLC 

CCCC 

MRITE(6I.ll20) DUMMY ( I ) .RS. DUMMY (2) «UL2  *PPH2  *E2  tTNET.TF2iTM.VM 

CCCC 

♦  .  Nr  PUL. EM? 

550  XNT*  KNT  •  I 

IF  (KNT  .(IT.  9)  KNT«  0 

c  PRINT  IF  THIS  INTERVAL  CROSSEO  EVaP.  PRINT  ANOUNT 
Ja  KKK 

DO  600  IaJ.IO 
KKKa  I 

CCCC 

EP»I*.l 

CCCC 

IF ( EP.GT . ,9)  EPaLPRT 

CCCCCC 

IF (ENSAVE.GE.EP.ON.EK.LT.EP)  GO  TO  610 

CCCCCC 

HS«HSAVE*(EP-EWSAVE)/(EW-ENSAVE)»(RK-RSAVE) 

RS«  RS  *  12. 

OUMMY (1 >  *XX* 1 2 • 

600  NR  I  I  £ ( 61 « 1 020 )  DUMMY ( 1) .RS«EP 
CCCC 

610  IF (AX.LT. XLIHXA)  GO  TO  TO 
XLIHXX«XLTMXX*)2. 

NHI1E(61«1 030) XLINXX.EN2 
GO  10  900 

C  BOILING.  ITERATE  ON  DELW,  INSTEAD  OF  PPH2  AND  TF2 
750  TF23  PASF  (-PS.E2) 

0ELTF(I)«  TF2  -  TF (I ) 

DUMMY ( 1 ) ■  TH  -  TF Z 

IF  (DUMMY (I)  .GE.  0.)  00  TO  755 

OELNNaO. 
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GO  TO 

755  IF  (  Oi)MHY(l)  .LT.  1.)  DUMMY!  l)a  1. 

cccccc 

DELvNa (nvZ-OELTF ? II *AS*YZ»CP( 1> /TME)  /VAPLAM 

756  CONUNUE 
CCCC 

lF(tV2.GE.ELIMX!  OELMN«0« 

PPH2aPPHN  -  DELHN  *  3600. 

IF  (ABSIOELMN  -  OELH)  .I.E.  l.E-5*  ABS (OELN)  )  GO  TO  TOG 
DEL*  a  DELVN 
KOUnTO»  KOUNTU  ♦  1 

if  iKOUNrn  .lT •  ao>  gd  to  70 
GO  10  250 
7b0  KOUNTlJa  2 
GO  TO  *00 
900  Ac  TURN 

1000  FORMAT  ( 1  Ho • 50 ( 1 H* )  /  lflHoE (START) a  FR.5  > 

CCCCCC 

1010  FOMc.AT  ( 12H0E*  (START)  ■  Fd.5  ) 

1020  F0KHAT(3N()X*  .F10.4.9M  IN.  ,  Ha  .F10.4.4H  lN,,3X, 

♦  *FoR  HEIGHT  FRACTION  EVaP,  E*»  *.F5.P) 

1030  FORMAT (22M0CALC.  STOPPED  AT  X  a  *F6.;>*14H  INCHES*  Ea«  *F7.5) 
1040  FORMAT (1H0. ‘INITIAL  FILM  VEL.  FPSa  a,F9.4,3X, 

♦  *KILM  THICKNESS*  IN. a  a.F12,7> 

1100  FORMAT  (1SH0FLMVAP  FAILURE  •  515*SX*3HRRb  F 10 .4 . 5X .2hE«  F1C.5 

CCCCCC 

♦  *5A«3HEWa  F 1 0.5  ) 

lliO  FORMAT  (21 H0H01L1NG  STARTS  AT  Xa  F8.3/I 
CCCCCC 

1120  FORMAT (lHo*F5.2,F6.2.FR.S*Fft.3,F9.3tF8«4*3F6,0*FB.2*El0.3*F8.4) 
1200  FORMAT  (3H0  ./FILM  EVAPORATION*) 

CCCCCC 

1300  F(IRMat(3H0  *2h  X.T11.1HH.  Tl*.  7HFILM-TH*  T23*  6HFILM-V.  T31* 

♦  6HWF-PPM,  T39.  7HFHAC-FV.  T48,  3HT-B,  T54.  3HT-F,  T60,  3HT-G, 

♦  Tn/.  JHV-G,  T73.  bHHF  /FT  *T8S,?HE*  ) 

ENO 

SUHHOUTlNE  F1EL01  (X.TMAX.UMAX) 

C  ROUTINE  TO  CALCULATE  UMAX  AND  TMAX  FOR  A  RADIAL  B'.L .  JET 
C  ***  TJ  .LE.  TAMH 
C 

C  ***  DIMENSIONS  IN  INCHES 
C 

COMMON  /  INPUT  /  KFUEL*OEO*GAP 

COMMON  /  THflJ  /  OUMl (9) ,TJ*0UM2(3) .UJ.01M3.TAMB 
C0N4a  SORT  (TAMB  /  TJ) 

CONSa  100.  /  112. 

CON/a  1.0923  •  C0N4 
XCOHF«  DEO  •  C0N7»*C0N5 
CONI  a  C0N7  *  UJ 
CONd  a  .91025  •  COM4 
TCOHEa  OEO  •  C0N»a»C0N5 
CDNba  (TAMB  -  TJ)  •  CONB 
C  CALC.  VELOCITY  V.  TEMPERATURE 

UMAXa  UJ 

OUMMla  (X  /  OEO)  *  1.12 

IF  (X  .GT.  XCOHE)  MAXa  CONI  /  0UMM1 

TMAXa  TJ 

IF  (X  .GT.  TCORE)  TAX-  TAMB  -  C0N6  /  0UMM1 
500  RETURN 
CnO 

•OECK  C 

SUBROUTINE  EVAP  (INTER*!) 

C  OROPLET  EVAPORATION, 

C  PROGRAMMED  1-22-71  BY  M.  TAN1 * 

C 

C  O.TF * VF,E  AHE  INPUT  FOR  DROP  NO.  I 
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C*»»»  NOlt—  FUFL  PROPERTY  E'IOaTIONS  ARE  ONL*  FOR  JF*  Amo  JPS/JFB 

c 

COMMON  /DUMP  /  KPRINT 

COMMON  /  INPUT  /  KFUEl  OEG.GAP.PPH.  TIT t_E  <  H > 

COMMON  /  QEVAP/  DUMMY!- 0) .0(5) ,TF(5) .VF(S) .VREL(S) *  RN(S)» 

1  CD ( 5)  »l)RAG  ( 5)  »FN ( 5)  *  CP<S) .OELO(S) .SGIS) ,FRM0(5) »0ELTF(5> . 

2  TIMS15) .FmaSS(S)  *  ALPHA  IS) »0ELV<5> ,E(S) »0X,K(5) .VFSAVE(5)  ,TFSAVE<5  I 

3  )  tDSAVE(S>  ,FS«VE<5>  .OSTART(S)  »SGSG6P<5)  «SGbU(5>  OELM(S) 

* .DPI ION. VAIRH. VAIRV. SINT .COST. 0UMI.0UM2 

♦  »95T (5) ,ER(S) 

COMMON  /  TMAJ  /  VFUEL»TFUEL»TFUELF»SGF.FMU.RHOF,PS».,T,TS»TT. 

H>Umm2U ( 3)  ,vaIR 

C0.1M0N  /0£V API /  T  AIRTR (7)  » AIRKTR (7)  » AtRHUT  (7)  » AIRcPT  IT)  .NTaBAR  f 

OATa  TaIRTM  /  *00. *e>00. .1000. .1500., 2000. .2500. .3000.  / 

1,  AIRKTH  /  .Oil*. .0165,. 0252,. 03**. .0*22. .0*86. .05*7  / 

2,  AImmuT  /I .E-5» I . JE“5» I .885E“5,?.SE“5»3.0I5E“5,3.*8E“5»3.9E“5  / 

3,  AIRCPT  /. 2*0*. .2*00, .2*9, .26' 2. .2772. .2060, • 2931  /.nTABAR/7/ 

CAT A  G, GAMMA. R.PI0«,G0GMI,GM102, PI  /32 , 1 7* . 1 , * . 1 5*5, 327, , 7B539B2 , 

i  3.3. .2,  3.1*15927  / 

C 

A  I KM*  23.966 

C0N3TI*  G  •  GAMMA  •  R  •  TS  /  AI«M 
C  CHECK  FOR  FIRST  ENTRY  TO  ROUTINE  <InTER«I> 

IF  (INTER  .NE.  1>  GO  TO  50 
C  ESTIMATE  NEXT  STATION  CONDITIONS 

VF2a  VF ( I ) 

TF2»  TF ( I ) 

02  a  0(1) 

E?»  E  ( t) 

OSTARTd)*  0(1) 

GO  TO  5S 

C  estimate  NEXT  station  CONDITIONS 

cccccc 

50  CONTINUE 
VF2*VF ( I ) 

TF2*TF ( I ) 

02»D ( I ) 

E?»E ( I ) 

CCCCCC 

IF  (02  .LT.  1.E-I0)  02*  l.E-10 
IF  (E2  .GT.  .99)  E2*  .99 
IF  (F2  .LT.  O.i  £2*  0. 
c  initialize  FOR  ITERATION  ON  0 
55  KOUnTC*  I 

SGRESO*  SGRFCT  (E ( I ) ) 

Svi  ( I )  =  SGFCT  ( Tp  ( I )  .3GRES0) 

Sr.bU(I)*  SGFCT  (519.69 .SGHESD) 

IF  (INTER  .EO.  I)  SGSG60 ( I ) *  SO  ( I )  /  SG60(I) 

CCCCCC 

OELDG*  02  -  0(1) 

KOJNTI)=o 
60  KOUnTm*  I 

DZ*  (Oil)  ♦  !)2I  •  .5  t 

CIRCUM»  PI  •  oZ 
TF.MPA*  Pin*  •  DZ*»2 

tempo*  Tempa  •  oz  /  1.5 
c  INI  I IALIZf  for  iteration  on  tf 
OELTFG*  TF2  -  Tf(T) 

EZ"  (E(I)  ♦  E2)  *  .5 
VAPM*  VAPMF  (EZ) 

SGRESO*  SGRFCT  (EZ) 

C  AVERAGE  TEMPERATURES.  CALC.  PROPERTIES 
7j  TFZ*  < TF < T )  ♦  Tf2)  *  .5 
TMX*  (TS  ♦  TFZ)  *  .5 
PAS*  PASF(TFZ.EZ) 

IF  (PAS  .LT.  PS-,01)  GO  TO  80 
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C  *T~  onitTWfi  FOTUI. 

PAS*  PS  -  .01 
KOJNTO*' 

80  VAPK*  VA2KF {TMX.VAPM) 

VARmU»  Vapmuf (TMX) 

WAPLAM*  VAPLMF  {  T F <f ) 

CP( 11 *  CPFCT UF/.SGRESO) 

WAPCP*  VAPCPFITmX) 

SGI  I)*  SGFcTITFZ.SGRESO) 

FRHOlIla  S3 ( I )  •  62. *28 
WAPU»  VAPOF { [MX, PS) 

IF  (VAPU  ,1.1 .  .00005)  VAPO»  .00005 
ALP»  PS  /  PAS  *  AlOG<PS  /  {PS  -  PAS)  ) 

C  AIM  PROPERTIES 

AIRK*TAH(Tmx,TaIRTH.a;HKTM.NTaBAR) 

A I RmUsT A8 { TMX  »  T A IRTH. A IRMUT , NT  A0AP) 

A I ML® *T AH {TmX«TAIHTG.AIRCPT«NTABAR1 
C  DIFFUSION  ZONE  PROPERTIES 

QKa  PAS  /  PS  »  .5 

OJ*  1  •  •  OK 

OKMXa  OJ  •  A  IRK  *  06  •  WAPK 
OMUMXs  OJ  •  A I RMU  ♦  UK  *  VAPMU 
OMMXa  OJ  •  AIHM  ♦  OK  •  VAPM 

OCPMXa  (OJ  •  AIRM  •  AIRCP  ♦  OK  •  VAPM  •  VAPCP)  /  QMMX 
QRiiOMXa  PS  •  OMMX  *  1**.  /  R  /  TMX 
SC »  OMUMX  /  WAPO  /  ORHOMX 
PRa  OCPMX  •  OMUMX  /  OKMX  •  3600. 

TEMPEs  DZ  •  OHMDMX  /  OMUMX 
OMASSs  TEMPO  •  SGI  I)  •  62. *28 
TFMPFa  .6  *  SC»*. 3333333333 
CCCCCCC 

TEMPG=CIRCUM»WAPi)*VAPM*PAS*ALP/«/TMX*I**. 

TEMPHs  .6  *  PR»*. 3333333333 

TEMP I a  VAPCP  /  CIRCUM  /  OKMX 

TEMPJa  CIRCUM  *  OKMX  *  (TS  -  TFZ)  /  3600. 

TEMPK  a  TEMPO*  SG  1 1 )  *  CP (I)  *  62.*2« 

C  INITIALIZE  FOR  ITERATION  ON  VF 

OELVRs  VF*  -  VF { I ! 

KOUNT  A a  1 

C  CALCULATE  DELTA  V  FOR  OROP 

100  VFZ»  { VF ( I )  «  VF2 I  *  .5 

IF  {OPTION  .tO.  0.)  GO  TO  115 
VRVa  VF Z  *  SINT  -  VAIRV 

VRH*  VFZ  *  COST  -  VAIRM 

WRElII)*  SORT { VRV**2  ♦  VRM**2 ) 

SPHI*  VRV  /  VRELU' 

CPM I  a  VRH  /  WRELII) 

VSIGNa  I. 

GO  TO  120 

115  VHEL 1 1 ) »  VAIR  -  VFZ 
VSIGNa  ). 

IF  IVRELII)  .GE.  0.)  GO  TO  120 
WRELII)*  -  WRELII) 

WSIGNa  -WSIGN 

CCCCCC 

120  CONTINUE 
CCCCCC 

IFlWRELUl.LT. 1.)  WHEL  I T )  »1. 

CCCCCC 

RN(I)aVRELU>#TFMPE 
CO<I>»  27.  /  RN 1 1 ) **.84 
FMACH2a  WRELU>»*2  /  CONSTl 

TEMPS*  PS  •  I  (1.  ♦  GMl02  *  FMACM2) **G0GMl  -  1.) 

CCCCCC 


IF  I [EmPR.LE. 0. )  TEMP8«l.E-20 

DRAG  1 1 )  »  TEMPS  •  COII)  *  TEMPA  *  1** 
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ALVha fl  i  * "6ra51IV~  r  omaSS  *  vsi6n  *  G 
IF  (OPTION  .£0.  0.1  GO  TO  1*0 
C  MODIFY  FOR  EFFECT  OF  G 

01M1«  G  -  ALPHA*  I»  •  SPHI 

OUM2*  “ALPHA (II  •  CPHI 

ALPHA (I) ■  SORT  (OUMi**2  ♦  0UM2**?I 

SIMB*  OUMl  /  ALPHA*  I) 

COSo*  OUH2  /  ALPHA* It 
1  AO  THStna  OX  /  VF(II 
DUMMY  1*  VF ( I ) **2 
OUMHY2*  2.  •  OX  •  ALPHA* II 
C  CHECK  IF  ROUNO/OFF  ERROR  I  S  A  PROBLEM 

IF  (ABS*0IIHMY2  /  OUMMYll  .LT.  l.E-7)  GO  TO  180 
TImSIII*  (SORT (OUHHYl  ♦  OUMMY2)  -  VF  II*  >  /  ALPHA(I) 

180  OELVdl*  ALPHAdl  •  TIMS*  I 

CCCCCC 

IF ( ABS (OELV  *  I ) I »6T •  VR£L  <  II )  OELV*  1 1 »  VSIGN*(  VRELd  I  “1  •  I 

IF  (OPTION  .FO.  0.1  00  TO  18S 

VRV*  VHV  ♦  OELVdl  •  SING 

VRH«  VrtH  ♦  OELVdl  «  C0S8 

OUHl*  VHV  ♦  VAIRV 

D’JN2*  VHH  ♦  VA1RH 

VF2*  SORT (DUM1**2  ♦  0UH?«»2I 

GO  TO  186 

185  VF2*  VF*II  ♦  OELV(l) 

C  CHECK  IF  WITHIN  TOLERANCE 

CCCCCC 

186  IF (ABS (OELV ( I l-OELVGI .LE.  .0 1«A8S I0ELV *  1 1 1 1  GO  TO  200 
OFLVG*  OELVIll 

IF  *  ABS (OELVGI  .LT..01I  GO  TO  200 
KOUNTAS  KOUNTA  ♦  1 
IF  (KOUNTA  .LT.  251  GO  TO  100 
190  WRITE  (61.1000)  KOUNTA.  KOUNTB.  KOUNTC.  KOUNTO.  I 

1000  FORMAT (IRHO****  fVAP  FAILURE  . AI5.5X.7H0R0PLET  151 

WHITE  (61,10011  TF2.VF2.02.E2 

1001  FORMAT  (AE15.5) 

INTER*  -l 

IF  (OPTION  .NE.  0.1  GO  TO  300 
CALL  EXIT 

C  have  CONVERGEO  ON  VF2.  NOW  CALC.  OELTA  TF,  WF 
200  TEMPC*  S(1RT(RN(II1 

QNUM*  2.  «  TEMP?  •  TE**PC 
OELW  s  QN'iM  •  TEMPG 

CCCC 

IF  ( (OELW«TIMS (11  I • 5T .OMASS)  0ELW*0MASS/T1MS (I  I 
OnUH*  ?.  ♦  TEMPH  •  TEMPC 
2)0  Z*  UELW  /  3NUH  •  TEMPI 

ZZ=  'Z  /  (E-P(ZI  -1.1 
QVZ*  ONUH  •  ll  •  TEMPJ 
IF  (KOUNTO  .EO.  0)  GO  TO  240 
C  AT  -.OILING  POINT.  ASSUME  DELTF*  0. 

IF  (VaPLAM  .EO.  0.1  GO  TO  190 
OELWN*  OVZ  /  VaPLAM 

cccc 

IF  ( (OELWN»TIMS(I) 1 .GT.OMASS)  0EL*N»UMA55/TIM5(I 1 
IF  <abS(OELWN  -  OELW)  .LE.  .001  •  A0S.OELIU  >  GO  TO  220 
DEL**  OELWN 
KOUNT o*  KOUNTO  ♦  l 
IF  (KOUNTO  .LT.  251  GO  TO  210 
GO  TO  190 
220  I JK*1 

KOUNTO*! 

C  AT  BOILING  POINT.  CALC  TF2  BASEO  ON  PS  ANO  E2 
230  TF2*  PASF  (-PS.  E2) 

0ELTF»Il*  TF2  -  TF ( 1 1 
GO  TO  250 
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*4croELTF(i>«_Tnvz‘"Diuir~*-vw;wr ■  i  ihstii  /  iempk 

TF2b  TF  ( 1)  ♦  OtLTF(I) 

CCCC 

IF  (KFUEL.F.U.4.ANO.TF2.GT.1092.B)  TF2«I092.8 

CCCC 

IF (KFUEL.NE.4. AND. TF2.GT. 1210.4)  TF2»1210.4 

CCCCCC 

OEL (F (1)«TF2-TF(I) 

C  CHECK  IF  WITHIN  TOLERANCE 

250  IF  (ABS(  OELTF(I)  -'dELTFGI  .LE.  .01**8S ( OELTF < 1 ) )  )  GO  TO  260 
OEUFGb  OELTF ( I ) 

IF  (  aHS(OELTFG)  .LT.  I. I  GO  TO  260 
KOUNTBb  KOUNTH  *  1 
IF  (KOUNTB  .LT.  25)  GO  TO  70 
GO  TO  190 

C  HAVE  CONVERGED  ON  TF2.  NOW  CALC.  DELTA  0 
260  IJK»0 

270  W2«  W(I)  -  OFLW  •  TIMS C 1 > 

IF  (W2  .LT.  l.E-30)  W2»  I .£-30 
SGXESO*  SGNFCT  <E2) 

SG ( I )  b  SGFCT (TF2.SGNESO) 

SG6u ( 1 ) ■  SGFCT  (ST9.69.SGRES0) 

02"  <6.  *  w?  /  PI  /  SG(I)  /  6<i. 4 28)  ••,3333333333 
IF  (02  .LT.  1.E-I0)  02*  I.e-IO 

E2«  I.  -  (02  /  OSTAHT ( I ) ) »*3  •  SG(I)  /  SG60I1)/  SGSG601I) 

IF  (E2  .GT.  .99)  E2«  .99 
IF  (F2  .LT.  0.)  £2“  0. 

OELOs  02  -  0(1) 

C  CHECK  IF  WITHIN  TOLERANCE 
CCCCCC 

IF ( ABS(DELO-OELOG) .LE.  . 01 *ABS (DELD) )  GO  TO  300 
OELOGb  HELP 

IF  (ABS(OELOG)  .LT.  I  . E  —  7 )  GO  TO  300 
KOUNTC*  KOUNTC  *  I 
IF  (KOONTC  .LT.  201  GO  TO  60 
GO  10  190 

C  HAVE  CONVERGEO  ON  ALL  PARAMETERS  FOR  THIS  INTERVAL 
C  SAVE  OLO  CONDITIONS.  SET  NEW  ONES 
300  VF5AVE ( I ) b  VF ( I ) 

7F ( 1 ) a  VF? 

TF5AVE ( I ) a  TF ( I ) 

TF(1)b  TF2 
OSAVEIIIb  0(1) 

0 ( I ) b  02 
ESAVE IDs  Ell) 

E(I)b  E2 

OFLU(I)b  QV2  *  TIMS  ( I ) 

OELM(I)a  OELW  *  TIMS(l) 

RETURN' 

ENO  ' 

•DECK  0 

FUNCTION  PASF  (T.E) 

C  Tb  TEMPER.  (H)»  E»  FRACTION  EVAPORATED 
C  PASFb  FUEL  VAPOR  PRESSURE  (PS1A)  FOR  JP4.  JPS/JP8 
COMMON  /  INPUT  /  KFUEL.OEQ.GAP.PPH. TITLE  <8> 

01 MENS I  ON  CKI (7.4) .  CK2I7.4),  ETABI7) 

OATA  ETAB  /  0 •  •  •  I .  .3.  .5.  .7.  .9  .1,0  / 

1.  CKl  /  0*.  G*.  0..  0..  0*.  0*.  0*. 

2  155810,. 386390.. S8S230. <817550. .1321200.1 31 7540C.. 10497000. • 

3  0,.  0,,  0 . «  0..  0,.  0,.  0., 

4  4 0497,, 136750.. 286430,. 60*209., 1399600.. 7044 10C«. 77680000./ 
5.  Ck2  /  0,<  0,.  G»<  0,.  0«.  0,.  0,. 

6  7414. 8. 8548.4.9066. 7.9484. 0.10083, .11178, .12670.. 

7  0. .  0«.  0..  0..  0».  0,.  0«. 

8  48i6,, 6269, ,7i5i,48o*2,.9o45,,io97*,, 13839,  / 

C 
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IF  (KFUEL  .Nt.  2  • AND .  kFUEL  .NE.  150 

C  IF  (T  .LT.  o  .  ARGUMENT  IS  (-PS) .  FINO  ANO  RETURN  cohres 
pstmt*-t 

OO  SO  JSI.T 
I=J 

IF  (E  -  £TA8(J>)  60. 90. SO 
33  CONI INUE 
GO  TO  70 

60  IF  (I  .EG.  1)  1*2 
70  K*1 

bO  IF  (PSTAT  ,lT.  0.)  GO  TO  83 

PASFs  CK2II. KFUEL)  /  ALOG (CKK I .KFUEL)  /  PSTAT  ) 

GO  TO  84 

83  PASrsCKi (I. KFUEL)  *  EXP<  -CK2( I .KFUEL)  /  T  ) 

H4  IF  (K)  110.100. 8S 

H5  psave*  pasf 

J=I 

I*  1  -  1 
K=  -1 
GO  TO  80 
90  K=0 

GO  TO  80 
100  RETURN 

no  pasf*  pasf  ♦  (Psawf  -  pasf)  /  (ETasu)  -  _tab(I> )  •  (E  - 

GO  10  100 

ISO  KHIIE  (61.1000)  KFUEL 
1 000  FORMAT  (2560PASF  CANNOT  HANOLE  FUEL*  15) 

CALL  EXIT 

EnI) 

FUNCTION  VAPCPF  (T) 

C  T*  IEMPER.  <H).  VAPCPF *  CP  FOR  JP*.  JPS/JP8  FUEL  VAPOR 
COMMON  /  INPUT  /  KFUEL, (1EG. GAP, PPH,TITLE<8> 

IF  (KFUEL  .EG.  ?)  GO  TO  50 
VAPCPF*  .180  ♦  .000565  *  T 
GO  TO  100 

50  VAPCPF*  .069  ♦  .000530  *  T 
100  RETURN 
ENO 

FUNCTION  VAPMUF  ( T) 

C  T*  TEMPER.  (H).  VAPMUF*  MU  FOR  JP4 .  JP5/JPA  FUEL  VAPOR 
COMMON  /  INPUT  /  KFUEL. OEG, GAP, PPH,TITLE(8) 

IF  (KFUEL  .EG.  <?)  GO  TO  50 
VAPMUF*  808. E-9  ♦  7.64E-9  *  T 
GO  TO  100 

50  VAPMUF*  248. E-9  ♦  6.31E-9  «  T 
100  RETURN 
ENO 

FUNCTION  VAPKF(T.R) 

C  T*  TEMPER.  (H>.  VAPKFa  K  FOR  FUEL  VAPOR 
C  MOLECULAR  WtlGHT 

UIMENSION  UTAH (4>  »ATa8(4> . 8TA8 ( 4) » T ABK ( 4) 

DATA  WTA8/S0.,  100.,  150.,  300,  /.  NT  AS  /4/, 

1  ATAB  /  -.006362,-. 00635b, -.0062R4, -.006010  /, 

2  B (AH  /  .0000297, .00002T3, ,0000259, ,0000235  / 

C 

00  10  I*1,NTA8 

10  TAbK ( I ) *  ATAH(I)  ♦  STaB(I)  *  T 

Vapkf*  tap  (w,wtah»tahk»nta9) 
return 

ENO 

FUNCTION  SGFCT  (T.SG60«) 

C  SG60R  *  S3  RESIDUE  AT  60  DEG  F 

C  T*  TEMPER.  (R),  SGFCT*  SG  FOR  JP4  AND  JP5  LIQUID  FUEL 

SGFCT*  SG6CR  ♦  .208  -  .0004*  T 
RETURN 
ENO 


.  TEMPERATURE 


« 


ETAS ( I ) ) 
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* 


« 


FUN.T10N  SnHETTT  (H 

C  E  =  FRACTION  EVAPORATED.  ir,60=  SG  AT  60  OE'i  F 

C  SMKU  SG  RESIDUE  AT  OO  DEG  F  FOR  JP4,  JPS/JPd  LIGUID  FUEL 

COMMON  /  INPUT  /  AFUEL • OEO • GAP < PPH,  T I TUE ( 81 
DATA  SG60 ■  /  .776  /  *  SG6058  /  .806  / 

SG60*  SG<>04 

IF  (KEUEL  .NF.  <*)  S&oO=  SG60SR 

SGRECT*  l.*:7h  /  (  (1,07.,  /  SG60  -  1.)  •  (1.  -  ,b7  •  E>  ♦  1.  > 

RFIURN 

EMU 

FUNCTION  Vf.PUF  (T.P) 

C  T  =  IEmPER.  <R>  .  P=  STATIC  PRESSURE 

C  VAPuF=  UIFFUSI V  I  TV  FOR  MtPTANE-OXYGEN 

VAPuF=  P.ORJ  /  P  •  (T  •  (T  •  1 . 1  -11 9E“9  ♦  1.973E-6)  -  9.81bt-4> 

RE  TURN 
ENU 

FUNCTION  VAPme  (E) 

C  r.-  FRACTION  E'/mPORaTEO,  VAPME s  MOLECULAR  AEIGHT  OF  JP*,  JPS/JPB 

C  FUEL  VAPOR 

COMMON  /  INPUT  /  KF  Utl.  •  UEO.GaP  .  PPH  ,  T  t  TLE  (  8) 

DIMENSION  FTaH  (7)  .  TA«MV(7.4) 

DATA  t  T  AR  /  0..  .1.  .1.  .S.  .7.  .9*  1.0  /.  NT  A8  /7/. 

1  TARMv  /  0.,  0..  0.*  0..  0.,  0..  0.. 

l»8.12,163.29,lb9.BM.  1  75.04.  l82.PS.  1R4. 86. 211 .07, 

0.,  0 .  ,  0.,  0,,  0,,  0 • ,  0*. 

91.26,  114.60*  1  ?9 •  t>  1  •  138.16*  150, S9,  173,21,  204.7b  / 

C 

VAPhFs  TAR(E,  ETA8.  T AHMV ( 1 , KFUEL 1 ,  NT  AH ) 

Rf  TuRn 
ENU 

FUNCTION  Va PLmFiTI 

C  T=  TEnPlP  (  p  )  ,  V  AP!.  ME  -  LATENT  HEAT  OF  VAPORISATION  FOR  JP4.0TU/LH 

C  also,  jp^/upa 

common  /  INPUT  /  AFUEl*;)E  I.GAP.PPh,  I  ITLt  <8) 

IE  (KEJEL  .EU.  ?;  GO  TO  50 
VAPLUF=  0, 

IF  (T  ,UT.  1092.88)  VAP'.HFs  13.20  •  (1092. R8  -  T)  «*.39 
GO  TO  100 
SO  Vami_mE=  0. 

IF  (T  .LT,  1210. <*5)  VAP|.MF=  10. 7S  •  (1210.45  -  T)  ••.41 
luO  RETURN 
ENU 

FUNCTION  CPFCT  (  I.SGR60) 

C  T  =  TEMPER  ( H )  «  CPE  C T  ,  CP  FOR  U'JUIO  JP*.  JP5/JP8 

C  SGRoOs  SG  RESIDUE  AT  so  OEG  F  FUR  JP* 

CpF C T=  (  . 1 H 1  ♦  ,00045  •  T)  /  SQRI(SGRbO) 

RETURN 

ENU 

FUNCTION  FLIUAF  (Tl 

C  T=  TEMPER  (HI,  ELIOAEs  THERMAL  CONDUCT.  FOR  L10U1Q  JP4.  OR  JP5/JP8 
FLlUKFs  .093  -  .000026  •  T 
>  RFTURN 
ENU 
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APPENDIX  IV 
PRIMARY-ZONE  MODEL 
COMPUTER  PROGRAM  NO.  1338 


1.0  INTRODUCTION 

Computer  Program  No.  1338  provides  a  method  for  solving 
a  number  of  finite-difference  fluid  flow  equations.  The 
program  was  set  up  mainly  to  analyze  the  primary  zone  of  a 
gas  turbine  combustor  but  can  also  be  used  for  many  other  two- 
dimensional  flow  fields. 

This  appendix  describes  the  grid  geometry  setup,  selec¬ 
tion  of  equations  to  be  solved,  definition  of  fluid  proper¬ 
ties,  inlet  conditions,  iteration  controls,  and  input  and  out¬ 
put  options. 

2.0  FINITE-DIFFERENCE  PROCEDURE 

The  program  is  a  finite-difference  method  in  which  a  flow 
field  is  represented  by  a  grid  of  finite-element  nodes  and 
elemental  volumes  around  each  node.  Derivation  of  the  equa¬ 
tions  and  finite-difference  procedures  is  given  in  the  text 
by  Gosman  et  al.^7  The  whole  purpose  of  the  mathematical 
derivations  is  to  arrange  all  pertinent  equations  in  an  iden¬ 
tical  form  so  that  all  can  be  solved  by  the  same  computer  cod¬ 
ing.  To  use  the  program,  it  is  not  necessary  to  understand 
all  the  details  of  each  equation,  but  the  number  and  type  of 
equations  to  be  solved  must  be  defined  for  each  application. 

The  basic  steps  required  in  obtaining  a  solution  are: 

(a)  Define  grid  geometry 

(b)  Define  equations  to  be  solved 

(c)  Define  the  fluid  properties 

(d)  Define  inlet  conditions 

(e)  Define  iteration  controls 

(f)  Select  program  output  options 

(g)  Determine  input  and  output  file  options 

Each  of  these  steps  will  be  discussed  in  terms  of  the 
input  required  for  the  data  sheets  shown  in  Figures  175  through 
179. 
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Figure  175.  Two-Dimensional  Flow, 

Program  No.  1338  Input  Data, 
Sheet  1. 
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Figure  177.  Two-Dimensional  Flow, 

Program  Mo.  1338  Input  Data, 
Sheet  3. 
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LEFT  BOUNOARY  (1-1)  INLET  CONDITIONS 


NVARI  -  NO.  OF  VARIABLES  TO  BE  INPUT 
9  10 _ 


REAO  NVARI  SETS  OF  IOVAR  L  (VAR fJJ .  J  •  1,  JB) 

ENTER  EACH  “IDVAR"  ON  A  SEPARATE  CARL,  FIR  >T  FIELD,  RIGHT  JUSTIFIED 
FOLLOWED  BY  CARDS  WITH  INLET  VALUES  FOR  THAT  IDVAR 

VALUES  OF  “VAR*  MUST  BE  ENTERED  FOR  ALL  NODES  1  - *  JB  EVEN  THOUGH  SOME  NODES  ARE  ON  A  WALL  (JA  -•»  JAI ) 

•  ONLY  THE  FOLLOWING  VARIABLES  CAN  BE  SET: 

NMF1,  NMF2,  NMF 3 ,  NMF 4 .  NMF i ,  X.MF6*  NH£.  NZK 
(IDVAR  -  EON  NO.  FROM  CARDS  QfcQ? 

17  *  TEMP.  19  ■  VI 

,  IF  NOT  ENTEREO,  mXL  ABOVE  ARE  -  1*10’30  EXCEPT  TEMP-TREF 
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9  10 


IDVAR 

OR  VAR  (1)  VAR  VAR  VAR  VAR  VAR  VAR  VAR 


1  9  10  11  21  41  SI  61  71  00 


Figure  178.  Two-Dimensional  Flow, 

Program  No.  1338  Input  Data, 
Sheet  4 . 
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1  11  21  31  41  51  61  71  BO 


VF  <J>,  J  -  JSI,  JS  ENTER  OHLY  IF  JS.  CT,  JSI 


1  H  21  31  41  51  61  71  80 


VF  (J),  J  -  JSI,  JS  ENTER  ONLY  IF  JS,  CT,  JSI  6  IS  <  IH 

1  11  21  31  41  51  61  71  80 


JET  INLET  FUEL  MIXTURE  FRACTION 
EMJET 

1  11  21  31  41  51  61  71  80 


IGNITION  CONTROL 
1ST  ITER  LAST  ITER 
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Figure  179.  Two-Dimensional  Flow, 

Program  No.  1338  Input  Data, 
Sheet  5. 
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3.0  GRID  GEOMETRY  DEFINITION 


Figure  180  shows  the  basic  grid  geometry  in  this  program. 
Figure  181  shows  the  wide  variety  of  configurations  that  can 
be  obtained  by  adjusting  the  various  input  parameters.  In 
general,  all  flow  inlet  is  at  the  left  boundary,  and  flow 
exits  across  the  right  boundary. 

The  first  step  is  to  define  the  upper  and  lower  boundar¬ 
ies.  The  lower  boundary  can  be  an  axis  of  symmetry  or  a  solid 
wall.  The  upper  boundary  must  be  a  solid  wall. 

The  next  step  is  tc  define  the  inlets  at  the  left  wall. 
Two  inlets  are  provided.  One,  called  the  primary  inlet,  ex¬ 
tends  up  from  the  lower  boundary,  and  is  fixed  to  the  lower 
boundary.  The  other,  called  the  secondary  inlet,  can  float 
anywhere  between  the  primary  inlet  and  the  upper  boundary. 
Either  inlet  can  be  extended  to  cover  the  full  width  of  the 
left  boundary,  but  they  must  not  overlap.  Swirl  can  be  intro¬ 
duced  at  the  secondary  inlet. 

Two  other  inlets  were  added  to  the  original  program  and 
protrude  up  from  the  lower  boundary.  The  left-hand  inlet  can 
be  used  for  upstream  injection,  as  from  an  L-pipe,  or  to  sim¬ 
ulate  air  recirculating  from  air  jets  impinging  at  the  center- 
line. 


With  upper  and  lower  boundaries  and  inlet  dimensions 
defined,  the  grid  mesh  is  established.  Figure  182  illustrates 
this  process. 

4.0  EQUATIONS  TO  BE  SOLVED 

A  listing  of  this  program  is  given  in  Table  XXVI.  Up  to 
seven  equations  can  be  solved.  These  are: 


(a) 

Vorticity  (NW) 

(b) 

Stream  function 

(NF) 

(c) 

Swirl  velocity 

(NVT)  for  INDG  =  2  only 

(d) 

Enthalpy  (NHS) 

(e) 

Unburred  fuel. 

CHx  (NMF1) 

(f) 

Carbon  dioxide 

(NMF2) 

(g) 

Fuel-mixture  fraction,  F  '(NMF3) 
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Figure  181.  Various  Grid  Configurations 
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Figure  132.  Grid  Layout  Procedure. 
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Two  additional  equations  can  be  solved  for  NO  and  N0~  after 
the  above  equations  are  converged.  2 

Vorticity  represents  the  combined  X  and  Y  momentum  com¬ 
ponent  equations  and  eliminates  the  need  to  solve  for  pressure 
variations.  Vorticity  is  related  to  velocity  gradients  and 
will  be  high  where  velocity  gradients  are  high  and  will  be 
zero  in  uniform  velocity  regions. 

The  stream^  function  represents  continuity  of  mass  and  is 
essentially  an  integration  of  r>  AV. 

The  fuel  mixture  fraction  primarily  keeps  track  of  the 
total  atomic  balance  of  C,  H,  N,  and  0  atoms.  The  difference 
between  NMF3  and  NMFl  represents  the  fuel  burned  at  a  given 
node.  Rates  of  fuel  burning  and  C02  production  are  determined 
from  reaction  kinetics. 

Iteration  starts  with  all  temperatures  set  to  TREP.  If 
this  is  less  than  approximately  3000 °R,  solutions  with  com¬ 
bustion  will  remain  unreacted.  A  means  for  starting  reactions, 
i.e.,  lighting  off,  is  provided  on  Data  Sheet  5,  Figure  179. 

An  artificial  temperature  is  imposed  on  the  reaction  rate 
source  terms.  A  value  of  4000°R  is  recommended.  Five  iter¬ 
ations  are  generally  sufficient  to  obtain  ignition.  Iteration 
will  proceed,  and  combustion  will  either  die  back  to  a  cold 
flow  condition  (blowout) ,  or  converge  to  a  stable  burning 
solution.  Combustion  efficiency  is  calculated  at  each  node 
point  from  the  CHX  and  CO  unburned.  An  integrated  efficiency 
at  the  exit  is  printed  after  the  final  printout. 

To  solve  for  NO  or  NO2  set  INOX  on  Data  Page  3  equal  to  1 
for  JO  only,  or  2  for  both  NO  and  NO2.  These  equations  are 
solved  after  the  main  solution  has  converged. 
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TABLE  XXVI 


LISTING  FOR  PROGRAM  NO  1338 


•C0«0£C«  C“0 

COMMON  /CVPCCC/  AI21.21 . 121 ,G1 (21 .21) .G2I21 .21) .R0I21.21)  • 

«  /MU (21 ,21) ,T (21.21)  .PF121 ,21) 

COmmOn/C AS  1 ZE /NUMA, 1  NOE  (12>  «HR< 1?)  «PR  ( 12)  .RSOUI 12)  .  IMS  ( 12)  .JUS  (12) 
..01) «aa ( l?) .PHlMNl 12) 

COMmDn/c  1n"'Ex/Nmax,nRR  In.  JnOG.  1N0R0.  Ino/mU,  IPMES.nI  TER.nma i n.nnOX 
common  /CNUMMR/  NM.NF.NVT.NmS.NZK.NMF1 .NMF2.NMF3.NMF A.NMFS.NMF6 
• . NEFF . IF . K  E  0 

COMMON/CXI X2C/A1 (21) .X2121) .OELXl (21) .0ELX2I21) .H(21) • RADA  »KADA 1 
..PAUa.HAnC.PAON.OA.OAl ,0H.0Cn.0N.X2AXTS.X1C0NV,X2C0nV 
COmMON/CGPIOC/IN, JN, JA.JAl . JH. JC. 1 Ab. 1 C . I NM , JNM, I MlN ( 2 1 ) . I  MAX (21) 
..IS1.1S.JS1.JS 

COMMON/ :VF.L0C/V  IN  (21  )  ,VF  (21)  .VF1  (25  >  'VT.PM.VINSM.V1  N  JM  ,  V I N  JM 1 
».VEXI T 

COmmON/cCONST/HOPEF.PPEF,ZMUN£f,TREF,CPREF.GC<»m,GC.ZJC.CC.OC.RO«F 

♦  ./MUK.ENZML.EMJET 

common  /Cnamec/  AT  1 TlE ( 12) .ASYMbL (20) .ANAME (6.20) 

C0MMnN/CMFMCC/STC.MC.MP,MS.XM,Z»(F,X02.  XM20.XC0.02.EN.Y02.YC0.XN2 

♦  .Z02.NSPFC.ZM"(6) .CPj(6) 

COMmON/CCOEFC/CF.CR.CN.CS.C  (S)  .  ZV.  ZVMALF.  IL.Irt 
COMMON/CVPLOT/INTVAL.NVJ.NVAW,IVAK(20) . INOO (20.9) . JNOD (20.9) 

.  . V JE (20.P) .NVP.10PI42) .IJGP:*2). 1VP(42) 

COmmOn/IGnEVP/ILO. 1M1.JL0. JMI.TIGN,NIL0.NIMI.NEV.FEVAP(21.21) 
COMMOn/CkVOPT/KVOHT. 1ENT 

COmmOn/nO XSAV/Z1 (21.21>.Z2(21.21).Z3(?1.21).ZA(21.21).Z5(21.21) 

♦  .Z6(2l.2l),Z7(21.2l).Z«(21.21) 

COmmON/CNOXSL/nOXSCL.nEO ( 12) * IOlD.InEM. INOX 

C0MM0n/CTC0m/CTCHX,CTC02.CTm20,CT0?.CTC0.CTn0.CTN02.CTn2,CTM. 

♦  CT0,CT0H,CTN20,C1n 

C0mm0N/EMC0m/EmCmX,EMC0?.Emm20,EM02.EMC0.EMN0.EMN02*Emn2» 

♦  tMM.EMO.EM0M.EMN20.EMN 
INTEGER  AT1TLE. ASYMBL. ANAME 
LOGICAL  NOXSOL 

•DECK  LO 

OVtMLAY (MAIN. 0.0) 

PROGRAM  LOGIC ( INPUT. OUTPUT. TAPES" INPUT. TAPE6*0UTPUT 

♦  .TAPE1=513.TAPE2»513,TAPEJ=513) 

•call  CMO 

CALL  OVERLAY (4MINIT, 1,0) 

NMAlNaO 
NNOXsO 
NlTLRiO 
VEX  1 T*0 , 

NOXSOL=. FALSE. 

IF  (10LO.EO.O)  *>RITE(6.11u0) 

lioo  format (//i x, *  Initialized  values  for  variables  *  ) 

IF  ( IOLO.NE.O)  RRITE (6, 1200) 

1200  FORMAT ( // 1 X , A  SOLUTION  PECOVEREO  FROM  TAPE  FOLLOWS  *//) 

CALL  PRINC1 

1FU0L0.LT. 0)  GO  TO  179 
lF(lNOX.GE.O)  CALL  OVERLAY (AMSOLV, 2,0) 

IF (INOX.GT.0)  RRI TE (6, 1 300 ) 

1300  FORMAT (//IX, A  FINAL  ITERAl ION  OF  MAIN  SOLUTION  BEFORE  NOX  FOLLOWS 

♦  *//) 

IF (INOX.GT.O)  CALL  PRINCl 
IFilNOX.EO.  0)  GO  TO  175 
WRITE(6.1001) 

1001  FORMA T (22M  ENTERING  NOX  SECTION  > 

C...KVB... SOLUTION  FOR  (NO)  AND  (N02)  IS  DESIRED 
NOXSOL*. TRUE. 

CALL  OVERLAY (3HNOX.3.0 ) 

CALL  OVERLAY (AHSOLV.K.O) 


07/26/71 


00/13/71 


OB/13/71 

07/26/71 

07/26/71 

07/26/71 


> 
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o  o  o  o 


TABLE  XXVI 


(Cont) 


NOXsOL*. FALSE.  07/26/71 

175  CONTINUE  07/26/71 

IFIINEo  .F.O.O)  GO  TO  101*3 
RFHIND  INF* 

XU  HE ( I  NEW) IN.JNtXltXZ.R 
NMI  IF ( INFW) A 
NHITE(TNFW)  G1 
NRIIF(INEW)  G2 
WHITHTNFWI  NO 
NHIIECnEm)  ZHU 
UNITE  (INEN1T 
NRIIE(InEm)  PF 
1003  CONITNUE 

179  CALL  OVERLAY ( 3HOUT t * 1 0 ) 

STOP 

END 

•DECK  PR 

SUNnOUTINF  PHINCI 
•CALL  C«0 

0 1  HENS  I  ON  AO(21,21«iai 
DIMENSION  M (21 1 

C...KVH...  08/09/71 

DIMlNSION  KLISK201  08/09/71 

EQUIVALENCE  (All. 1.1)  .And, l,ln 


FARR INT tt  SUWNOUl INE 

THIS  SUNN.  PRINTS  OUT  PART  OF  THE  RESULTS  TOR  EAST  EXAMINATION 


1 1  *  1 F 

C...KVH.. . 


08/09/71 


00  JO  K*  =  I .IF 

08/09/71 

30 

KLIST (KK) =  KK 

I F (NOXSOL )  GO  TO  46 

IF  HOLD. GE.O. AND. NMAIN.GT.O. AND. NNOX.EO.O. AND. MC.GT.O.)00  TO  34 

IF (NNOX.GT.OIGO  TO  34 

GO  TO  36 

08/09/71 

34 

IT*1T.I 

KLIST (IT IsNMFS 

IF (NNOX.GT.O.ANO.IABS(INOX) .NE.2I  GO  TO  36 

08/09/71 

IT  =  ITM 

08/09/71 

KLISTIITI.NMF6 

08/09/71 

36 

CONTINUE 

08/09/71 

IFdPHES.NE.2i  GO  TO  40 

08/09/71 

I T* IT* 1 

08/09/71 

KLIST (IT) iNUMA»6 

08/09/71 

40 

IF(INDR().NE'.2)  GO  TO  46 

08/09/71 

I T* I T ♦ 1 

08/09/71 

Kl I  ST (I T ) =NUMA«5 

IF (MC.EO.0. 1  GO  TO  46 

I  T  *  I T  *  l 

KLIST ( IT ) 8NfcF 

0B/09/71 

46 

CONTINUE 

08/09/71 

C*“ 

Removed  ANAME t ASYMBL  set  for  np  and  temp  -  DONE  IN  BLDCK1 

60 

CONTINUE 

lxr<l 

IF  (l.GT.IT)GO  TO  15 

DO  190  KKal .IT 

KsKLIST(KK) 

NR  1 TE (6.200)  NMAIN.NNOX ,K, (ANAME (L*K) .L«l«6) 

08/09/71 

C***KVR*** 

00  180  IP»1 .2 

Iil«ll 

1EMPT Y«0 

IF  (IP.EQ. 1 ) IENO»10 

08/09/71 

IF ( IN.LT, 1 0) I ENO* IN 

IF  ( IP.EQ. 2 ) IEND" IN 

07/26/71 
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IF  (T.XTnRTBirTO'  Z5 
DO  170  JJal*JN 
J»JN«1-JJ 

IF  (IP.EO,2.ANO.IMAXU).LT.11)60  TO  170 
IF  (10.EO.1)II1-1M!KU) 

IF  (lP.tO.l) 1EMPTY»(II1-1)/IX 
II2«IMAX(J) 

IF  (1P.E0.1 *AN0. 112.GT .10)112*10 

IF  (K.NE.Ntf.AND.(INDE(*).NE.1.0R.K.N£.NVT>>60  TO  BO 
IF  (III. 6T. 112)60  TO  3S 
00  70  1*111, II2.IX 
W(l)«AO(l. J*K) 

IF  (K.EO.NW)A(I* J,NW)aW(I)aRU) 

if  (k.eq.nvt.ano.Ru:  '■t.o.o)a(i.j,nvt)»m(I)/«ui 

70  CONTINUE 
35  CONTINUE 
80  CONTINUE 

IF  (lEHPTr.6E.D60  TO  90 

WRITE  (6*210 ' J* (AQ(I,J,K) *I«II1.II2.IX> 

60  TO  ISO 
90  ICKCGT«IEMPTY 

IF  ( 1CKC6T . LE . 1 ) 60  TO  100 
IF  (ICKCGT.GE.S)GO  TO  140 
60  TO  (100.110*1 20 *130 *140 1* 1CKC6T 
100  WRITE  (6,2*0) J* (A0(I,J,K),I«I11.II2.1X) 

60  TO  ISO 

110  WRITE  (6*250) J* (AQ(I.J.K) . I«II1* 112* IX) 

60  TO  ISO 

120  WRITE  (6.260,J«(AO(l*J*K).IaIIl«II2*IX) 

60  TO  ISO 

130  WRITE  (6.270) J* (AQ(I,J,K) , I*II 1 , II2.IX) 

60  TO  ISO 

140  WRITE  (6.280)J*(4O(I.J*K).IaIIl,lI2.1X) 

ISO  CONTINUE 

IF  (K.NE.NW.ANO.(INOE(K).NE.l.OR.K.NE.NVTDOO  TO  170 
IF  (111 .GT.l 12) 60  TO  45 
00  160  I.II1.II2.1X 
160  A ( I » J,K) aW  ( I ) 

45  CONTINUE 
170  CONTINUE 
25  CONTINUE 

IF  ( IP.EO.l ) WRITE  (6* 22m) (I*I*1*I£nD) 

1F(IP.E0.2.ANO.IN.LT.11)GO  TO  180  07/26/71 

IF  ( 1P.E0.2) WRITE  (6,220) ( I  * !■! 1 . IEN0) 

WRITE  (6,230) 

180  CONTINUE 
190  CONTINUE 
15  CONTINUE 

C»»»  REVISED  RENO  TO  PREVENT  DIVIDE  BY  ZERO,  FIRST  ITERATION 
RENOaO.O 

IF  (Z'*U (1*1)  .NE.0.0 )  RENOa-12.567#A(l,l,NF)/IHU(l,l) 

WR1  IE (6* 300) RENO 
WRITE  (6*290) VEX1T 
RETURN 
C 

200  FORMAT ( 1 1H1MA1N  ITERa,I3*llH  NOX  ITERa,13.4H  K»*I2*  08/13/71 

•2X.6A6)  08/13/71 

210  FORMAT  (1H  •I2*2X*lPE11.3*lPE11.3,lPE11.3tlRE’1.3,lPE11.3*lPE11.3* 

♦1PE1 1.3* 1PE1 1.3. 1PE 11.3, 1PE1 1.3.1PE11.3) 

220  FORMAT  (1H0./11111///) 

230  FORMAT  ( 1H0 * /// ) 

240  FORMAT  ( 1 M  *I^*2X*11X*1 PE 11.3*1  PE 11.3*1  PE 11.3*1 PE 11.3*1 PE 11*3*1 PE l 
*1*3,1 PE  11. 3*1 PE  11. 3*1 PE  11. 3*1 PE 11. 3) 
c50  FORMAT  ( 1H  ,I2,2X,22X,1PE11.3,1PEU.3,1PE11.3,1PE11.3,1PE11.3,1PE1 
♦1.3,lPEll.3*lPE11.3,lPEl 1.3) 

260  FORMAT  (1M  ,I2,2X.33X,1PE11.3,1PEU.3,IPE11.3*1PE11.3,1PE11.3*1PE1 
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♦1.3.1PE11.3.1PL11.3) 

270  FORMAT  (IP  ,I2.2X.44X,1PE11.3.1PE11.3,1PE11.3,1PE11.3,1PE11.3.1PE1 
♦1.3*1  PE  11  ' 

280  FORMAT  (,.  ,12, 2X.55X.1 PE  11.3*1 PE  11.3,1  PE  11. 3.1  PE 11. 3.1  PE 11. 3*1 PEI 

♦  1.3) 

290  FORMAT  (9H  VEXIT  ■  .1«>E11.3> 

300  FORMAT (//*  REYNOLDS  NUMBER**. 612. A)  07/26/71 

ENO 

•OECK  AO 

FUNCTION  AOF(I.J.LX.KO) 

•CALL  CMO 

01 MENS I ON  *0(21 .21.18) 

OIMENSION  HENO ( 21 ) .BVSR (21 ) ,BP ( 21 ) 

EQUIVALENCE  (A(l.l.l).AQ(l.l.m 

OF ( PN.BENQ.8VSR.8P.XENQ.XVSR)* ( ( XENQ»XENW-XVSF  »XVSR ) •BP*XVSR«XVSR« 
♦BENQ-XENQ«XENQ»BVSR)/(XENQ»XVSR«(PN»XENQ*XVSR) ) 


c  this  function  evaluates  fihst  oehviayives  accoroing 

C  TO  THE  THREE-POINT  OUAORATIC  APPROXIMATION 

(:••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••• 

c 

C»»»»  UEPENOINO  ON  THE  POSITION  OF  THE  POINT  (I.J).  THERE 
C*»*«  ARE  FIVE  OIFFEHENT  EXPRESSIONS  FOR  THE  DERIVATIVE 
C 

C»»»  REV  I SEO  AOF  TO  ELIMINATE  00  XXX  L*1.14 
L61*NUMA* , 

L62*NUMA«2 

lro*numao 

LV1*NUMA*7 

LV2*NUMA»R 

L*KU 

IF (RQ.NE.LV1.AN0.RQ.NE.LV2)  00  TO  5  08/09/71 

L*LHO 

GO  TO  5 

310  IF  (RQ.EO.LV1)  L*LG1 
IF  (RQ.EQ.LV2)  L*IG2 
5  M*1 

IF  (I.LT.IA8.AN0.I.GE.11G0  TO  1C 
IF  (J.EO.l)GO  TO  20 
IF  (I.EO.IAB1GO  TO  30 

IF  (J.EU.JN.OR. ( J.Eft.JC. ANO. I .LE.IN.ANO. I .GE» IC) > GO  TO  40 
IF ( J.EQ. JS.ANO. 1 .GE. IS1 . ANO. I .LE« IS  I  GO  TO  20 
IF(I.EQ.IS1 .AND.J.GE.JSI » AND r J.LE. JS)  N*5 
IF  ( I  .EQ.  IS.At'O.  J.GE.  JS1 .  ANO.  J.LE.  JS)  SO  TC  30 

IF  < (l.EC.IC.ANO.J.LE.JN.ANO.J.GE.JCl.OR. ( I .EQ. IN.ANO. J.LE. JC.ANO. 

♦J.GE.l) )M»5 
GO  TO  50 

10  IF  (J.EO.l.cR.J.EQ.JADOO  TO  20 
IF  (I.EO.llCO  TO  30 
IF  ( J.EQ. JB.OR. J.EQ. JA> 00  TO  40 
GO  TO  50 
20  M*2 

GO  TO  50 
30  M*j 

GO  TO  50 
40  M«4 
50  CONTINUE 
ICKCGT*M 

IF  ( ICKCGT >LE. 1 1  GO  TC  60 
IF  (ICKCGT. GE.51G0  TO  190 
GO  10  (60. 100.130:160. 190), ICKCGT 
C***«  M*;...,FOR  POINTS  NOT  ON  ANY  OF  THE  BOUNDARIES 

60  PM*1, 

IF  (LX.EQ.l)GO  TO  80 
IF  (J.EO.l.OR.J.EQ.JAl)OO  TO  110 

IF  (J.EQ.JN.OR. (J.EQ.JC.ANO.I.EQ.IN) .OR. (I.LT.I AB.ANO. (J.EQ. JB.OR. 
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♦J.EU.JA)  MGO  TO  170 
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BENU  <L I *AQ  < I « J»1 «L> 

BwSH (L) bAQ( I t J-l «L) 

70  BP(L)=*0(I.J.l) 

XCN(JrX2<J*i)-X2<J) 

X«SH*X2(J)-X?< J-l) 

GO  TO  220 

80  IF  (I.EG.IAB.OR.I.EO.IIGO  TO  140 

IF  ( (I.EQ.IC.ANO.J.EQ.JN) .OR. I. FQ, INIGO  TO  200 

C*«« 

BENUCLI >iOII<ltJiL) 

BbS»«(L)»*0(I-1.J.U 
90  BP(L)»*0(I.J.U 
X£NU*Xl(I*ll-Xl<I) 

XWSB«X1 (I)-Xl(I-l) 

GO  TO  220 

C***«  Hs2....foB  POINTS  ON  THE  80UN0ARY  J»1 
1 0 <-=  IF  (LX.EO.l)GO  TO  60 
110  PN«-1. 

C««« 

BENU(L)»AO(I«J*l*L) 

B*SH<L)=AO(I.J«2.L) 

120  OP(U>AO(I,J,L) 

XENU*X2(J*1)-X2(J) 

XWSH*X2 ( J*2) ~X2 ( Ji 
GO  TO  220 

C**»*  H«3....FOR  POINTS  ON  THE  UB-PLANE 

130  IF  (LX.NE.l)GO  TO  60 
140  PN*-1. 

C««* 

BENU(L)*A(3(I*1,j,L! 

8wSH(L)=AQ(I»2,j»L) 

ISO  BP(L)=AQ(I,j,u 
XENUmXl(I*l)-Xl(I) 

XHSHmXl(I*2)-Xl(I) 

GO  10  220 

C***»  Mx*....FC«  POINTS  ON  ALL  WALLS  PARALLEL  TO  THE  J-LINeS* 

C*»»*  dEYONN  THE  IaB-PLANE 
160  IF  (LX.EQ.l)GO  TO  60 
170  PNx-1. 

C*»* 

BENQ(L)»AQ(I.J-1»L) 

BWSH(L)*AQ(I.J-2.L) 

180  BP(U»AQ(I.J,L) 

XENU«X2( J-1)-X2(J) 

XWSK»X2(J-2I-X2(J) 

GO  TO  220 

C**««  M»5....FOR  POINTS  ON  THE  WALL  OF  I»IC  AND  THOSE  ON  THE  EXIT 

190  IF  (LX.NE.11GO  TO  60 
200  PNa>l, 

C**« 

BENU(L)»AQ(I-1.J.LI 
B*SH<L)»AQ(I-2»J.L1 
210  BP(L)»A(5(I,J,L) 

XENQbXI(I-I)-XKI) 

XWSH«XKl-2)-Xl(I) 

220  CONTINUE 

C*«««  EVALUATION  OF  DERIVATIVES  FOR  Vl  IKO-15)  ANO  V2  (KQ-16) 

C*4* 

IF(K0.NE.LV1.AN0.KQ.NE.LV2)  GO  TO  240  0B/09/71 

IF  (L.EO.LRO)  GO  TO  310 
IF  (L.EQ.L02)  GO  TO  230 
BENtt(LVl) »BEN0(LG1 ) /BENO(LRO) 

BUSH (LV1 ) «BWSR (LG1 I /BWSR ( LRO ) 
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'?Tf»;r¥?  ■‘J'S-T  -  *3  t-  t,  **v» 


301  CONTINUE 
X2AXIS*X2AXIS*X2CON V 

302  CONTINUE 

C«*>»  ENO  CONVERSION 
C«»»  CHANGE  COMPLETE 
C 

IF  ( 2.GT . INN) GO  TO  S 
DO  J(1  1*2 1 INM 

30  0ELX1  (I )  =0 . 5*  (  <1  U*l) -XI  (  1-1)  ) 

S  CONTINUE 

IF  (2.GT.JNMIGO  TO  15 
00  40  J«2.JNM 

40  OELX? ( J) *0 .5* (X2 t J* 1 > -X2 ( J“1 > ) 

15  CONTINUE 

IF  (l.GT.JN)GO  TO  25 
00  50  J* 1 , JN 
IF  (INOG.E0.1)R(J)*1.0 
IF  (IN0G.EQ.2)H(J)*X2(J)«X2AXIS 
SO  CONTINUE 
25  CONTINUE 

IF  (INOG.NE.DGO  TO  60 

C  FOR  PLANE  FLOWS  PUT  THE  CHANGES  RADII  EQUAL  UNITY 
C***  AOOEO  X2AXIS  *1.0 

IF  (X2AXIS.GT.0.0)  X2 AX  I S* 1 • 0 

RAOAsl.O 

RADA1 *1 . 0 

RADB«1.0 

RAOC*l .0 

RAONsl.O 

GO  TO  70 

C#**#  SPECIFYING  chamber  dimensions 

60  RAOA*X2(JA).X2AXIS 
RAUA1*X2(.JA1)  «X2AXIS 
RADB*X2(J8) *X?AXIS 
RAUC*X2( JC) ♦X2AXIS 
RAUN*X2 ( JN) *X2AXIS 
70  0A*X1(IAB) 

DAl*Xl (IAB) 

08*Xl (IAB) 

0CN=X1(IC) 

0N*X1 (IN) 

C**«*  SPECIFYING  INOE  S 

IF  (l.GT.IE)GO  TO  35 
00  OO  L*1 • IE 
BO  INOE  CL) *1 
35  CONTINUE 
IE1*IE*1 

I'(IEl.GT.NUMA)  GO  TO  45 
00  VO  L*IE1 tNUMA 
90  INOE (L) *9 
45  CONTINUE 

C«««4  SPECIFYING  IMIN  S  ANO  IMAX  S 

C*»»  COHHFCTEO  GOSMAN  IN  REGION  JA  TO  JA1  BETWEEN  INLETS  TO  SET 
C***  IMIN*IAB  RATHER  THAN  1,0 
IF(JB.EQ.JN)  GO  TO  55 
JB1*JB*1 
00  100  J*JB1 • JN 
IMIN(J)*IAB 
100  CONTINUE 
55  CONTINUE 

00  200  J*)AltU8 
IMIN ( J) *1 
200  CONTINUE 

IF(JA.EQ.UAl)  GO  TO  202 

JA10UM«JA1-1 

DO  201  J*JA.JA1DUM 
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BP<LvT)‘«'eP(L01  )/HP(LR6i 
GO  TO  240 
230  CONTINUE 

8£NU(LV2) a6£NO(LG2)  /BENO(LRO) 

8WSR(LV2) aflwSR (LG1 )  /BWSR(LRO) 

BP (LV2 ) agp (LG2 1 /BP  (LRO 1 
240  CONTINUE 

C*** 

ADF«0F (PN.BENO(KO) .BWSR(KQ) .PP(KO) .XENO.XWSR) 

END 

•DECK  GO 

OVERLAY  UNIT, 1.0) 

PROGRAM  GOSNOX 
•CALL  CMO 
C • • • KV8 • • • 

OIMENSI ON  AO (21.21 . 18) 

C»*»KVB»»» 

EQUIVALENCE  < A (1 . 1 . 1 ) . AO ( 1 . 1 . 1 ) ) 

C 

C  MULTI-COMPONENT  FIOW...WITH  CHEMICAL  HE ACT  ION. . . Hi Th  S*!«L 
C  REACTION  IS  THE  single-step  TYPE  AND  IS  PHYSICALLY  CONTROLLED 

c 

C»»*  THIS  PROGRAM  has  prepareo  by  s.c, hunter  and  s.patwahdhan. 

C»»*  FOR  A I RESEARCH-PHOENIX  BASED  ON  THE  CHAPTER  6  VERSION  IN  GOSMAN 
C**»  TEXT.  CHANGES  MAOE  ARE  INOICATEO  RY  C«*«  AND  INCLUOE  CHANGE  DF 
C»»*  ALL  INPUT  OATA  TO  READ  INSTF.AO  OF  BLOCK  DATA.  CHANGE  OF  INLET 
C»»»  CONDITIONS  TO  VARIABLE  PROFILES  RATHER  TKAN  CONSTANT.  ADDITION  OF 
C»**  A  PICTORIAL  INLET  AND  EXIT  PROFILE  PLOT. 

C*»*  DENSITY  AND  TEMPERATURE  CALCULATIONS  WERF  MADE  MORE  GENERAL. 

C**»  TEMPERATURE  STOREO  IN  AOU.J.14)  •  NEW  TEMPORARY  STORAGE 
C*aa  CHEATEO  IN  AOF  ANO  PRESCl 

C*aa  GENERAL  CHANGES  NOT  INOICATEO  REOUIREO  FOR  CDC64&3  INCuUOE 
C*«*  DO  LOOP  BYPASS  FOR  VARIAHLE  LOOP  INDICES  AND  ELIMINATION  OF  IF 
C**«  STATEMENTS  AT  ENO  OF  00  LOOPS. 


C...KVB.. .G.SOTTER. V.OUAN.C .BODEEN  OF  KVB  tNGINEER ING, INC . 
C...KVB...HAVE  MODIFIED  THIS  PROGRAM  OURING  JUNE-AUGUST  1971 
C.. .KVB. ..TO  INCLUOE  CALCULATION  OF  (N0|  ANO  (NO?/ 

C...KVB...  OTHER  CHANGES... 


C. . .KVB. . . 
C . . .KVB ... 
C . . .KVB ... 
C. . .KVB. . . 
C . . .KVB . . . 
C . . »KVB . . . 
C. . .KVB. . . 
C . . .KVB ... 
C . . .KVH . . . 
C . . .KVB . . . 


NEW  INPUT  CARO  JUST  BEFORE  INLET  BDY  VALUES 
IOLO  LOGICAL  UNIT  TO  RECOVER  AO  MATRIX 
INEW  LOGICAL  UNIT  TO  SAVE  AO  MATRIX 
INOX  1 aNOX  SOLUTION  DESIRED 

ANY  OF  ABOVEaO  MEANS  DONAT  DO  IT 


C**» 


KVB  COMMENTS  ARE  OBVIOUS 

KVB  FORTRAN  INSERTIONS  BEGIN  WITH  ...KVB.. 
AND  END  WITH  •••KVB*** 

DIMENSION  OAY (21 . TIME (2) 

DATA  NUMA/12/ 

CALL  BLOCKK 

MOVE  HEAD  ATITLE.ASYMBL.ANAME  AND  ROVF  TO  BLOCK. 


lNMaIN-1 

JNMaJN-1 


C 

C***  MOVED  XI, X2  TO  BLOCK.  ADOED  X1C0NV.X2C0NV  FOR  UNIT  CONVERSION. 
C***  CONVERT  THE  GRIO  DIMENSIONS  INTO  THE  DESIRED  VALUES 


IF  (1.3T.IN)  GO  TO  302 
00  300  Ial.IN 
Xl(I)aXl(I) *X1C0NV 
300  CONTINUE 

DO  301  Jal.JN 
X2  <  J)  «X2  ( J)  *X2CONV 


08/09/71 

08/09/71 

08/09/71 


07/26/71 

07/26/71 

07/26/71 

07/26/71 

07/26/71 

07/26/71 

07/26/71 

07/26/71 

07/26/71 

07/26/71 

07/26/71 

07/26/71 

07/26/71 

07/26/71 

07/26/71 

07/26/71 


. 


f 


a 
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IMINC  J>Vf*s 

201  CONTINUE 

202  CONTINUE 
IF(JA.EQ.l)  60  TO  204 
00  203  Ja| « JA 

IMIN ( J) *1 

203  CONTINUE 

204  CONTINUE 

C»»*  CHANGE  COMPLETE. 

«  65  CONTINUE 

IF  (l.GT.JOGO  TO  75 
00  ’20  L«1.JC 
120  IMAX (L) *IN 
75  CONTINUE 
JC1*JC*1 

,  IF  ( JCl.GT.JNIGO  TO  85 

00  130  L-JC1.JN 
130  IMAX(U*IC 

C***  MOVED  ALL  INITIAL  VALUES  TO  BLOCK. 

85  CONTINUE 

IFIIS.LT. IN. OR. jSI.GT.JS.0B.JS.EO.il GO  TO  175 
JSMlajS-1 

00  1000  JaJSl.JSMl 
1000  IMAM  J)  «IS1 
175  CONTINUE 

IF  (INOX  .LT.  0  .OR.  IOLO  .LT.OIGO  TO  170  06/13/71 

00  400  JsJAl.JB 
400  A(1*J.NVT)*A(1*J»NVT)*R(J) 

170  CONTINUE 
CALL  HEAOC1 
ENO 

•OECK  8L 


Suuhoutine  blockk 
•CALL  CMO 

common/blhe/t anb • sm 

07/26/71 

C. . . KVB. . . 

08/09/71 

OIMENSION  AQ (21 . 21 .18) 

08/09/71 

OIMENSION  BTITLEI 12) 

C8/09/71 

INTEGER  BTITLE 

08/09/71 

C. . .KVB. . . 

07/26/71 

or'INSION  0ATEIN(2).TJMEIN(2) 

07/26/71 

LOGICAL  PLONLY 

06/13/71 

07/26/71 

OIMENSION  ISYMBL (20 ) » I NAME (6.20) 
OIMENSION  VT (21) 

DIMENSION  VAR ( 21 ) 

OIMENSION  IEV(8).JEV(8).0UM(8) 
EQUIVALENCE  ( A ( | . 1 . 1 ) , A0( 1.1 . U > 


OAfA  ( ISYMBL ( I ) . I* 1 *20)  /  6HVORT 

.6HSTRM 

.6HVSVL 

.6HENTH 

♦  6HTBKE  ,6HMF  1  ,6HMF  2  ,6HMF  3 

. 6HMF  4 

,6HMF  5 

,6HMF  6 

♦  6HEFF  ,6HG1  .6HG2  .6HRHO 

•6HVISC 

.6HTEMP 

.6HPRES 

*  6HVEL1  . 6HVEL2  / 

OATAI (INAME(I.J) t 1*1.6) »J*1 .5)/ 

t  6HV0RTIC.6HITY  -»6H  A(I»J.6H,N*> 

.6H 

*  6H 

• 

♦  6HSTREAM.6H  TUNCT. 6HI0N  -  .6HAII, 

J..6HNP) 

»6H 

• 

♦  6HSVIRL  .6HVEL0CI.6HTY  -  A.6H1I.J 

.N.6HVT) 

*6H 

t 

♦  6HENTHAL.6HPY  -  A.6H ( I • J.N.6HHS) 

»6H 

*  6H 

• 

.  6HTUR8UL.6HENT  KI.6HNETIC  .6HENERGY.6H  -All. 

•6HJ.N2K) / 

OATAI (INAMEI I. J) .1*1.6) • J*6« 12) / 

♦  6HMASS  F.6HRACTI0.6HN  NO  1 »6H 

*6H 

*6H 

* 

«  6HMASS  F.6HRACTI0.6HN  NO  2.6H 

«6H 

•  6H 

• 

«  6HMASS  F.6HRACTI0.6HN  NO  3.6H 

*6H 

«  6H 

* 

♦  6HMASS  F.6HRACTI0.6MN  NO  4.6H 

»6H 

.  6H 

• 

♦  6HMASS  F.6HRACTI0.6HN  NO  5.6H 

*6H 

•  6H 

• 

♦  6HMASS  F.6HRACTI0.6HN  NO  6.6H 

»6H 

.  6H 

• 

♦  6HEFFICI .6KFNCY  .6H  .6H 

*6H 

.6H 

/ 
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♦  6MMASS  V.6HEL0CIT.6HY  0IHE.6HC. 

♦  6HMASS  V,fSHEL0CIT,6HY  0IRE,6HC. 

♦  6H0ENSIT.6HY  -  R0,6H(I,J)  ,6H 

♦  6HVI5C0S.6HITY  -  , 6HZMU ( I , ,6HJ) 

♦  6HTEMPER,  6HATURE  ,6H  ,6H 

♦  6HPB£SSU,6MR£  t 6H  f6H 


C»»»  UNIVERSAL  CONSTANTS  - 

OATA  GCPM,GC,ZJC/IS*5. 0.32.2, 778.0/ 
0*TA  02. EN/. 209*95,. 790505/ 

. . . . 


XXVI. 

(Cont) 

f 

\  -»6H 

OKI,,'  - 

2  -»6H 

62(1.--  u 

,6H 

.1 

,  8h 

,6H 

,8'i 

,6H 

,6H 

,  6h 

I  -,8H 

VI  ,6H 

2  -,6H 

V2  ,6H 

c» 

c» 

c 

c» 

c 

c 

c 


ATLH;bINPu?°oIu!  CMAN6E0  FR0M  BL0CK  °*T*  TYPE  T0  RE*D  INITIAL 


for  Single:  component  flow  plt  ja  an0  jai  eoual  jb 

BE  PUT  E0U*L  T0  JN  ANO  IC  EOUAL  in 


WHEN  NO  REACTION  is  required  put  hc«o 


c»**» 

c«## 


'AU*NUMA.S 

KK*NUMA» I 

he ao  the  data 


c*»» 


c*»» 


c*»» 

c*** 


title 

READ (5, 10)  ATITLE 
GHIO 

oc^'r’!01  in*jn.Ja,jai.jb,jc,iab.ic 

READ (5.21 )  (XI(KI),KI«I.IN) 

REAU (5.21 )  (X2(K2) ,K2«I ,JN) 

REA0(5,2I)X2AXIS.X1C0NV,X2C0NV,CC,0C,R0WF 

EQUATIONS 

RFA0(5.20)IE, (NEO(I) ,I«I,NUMA) 

NW»nEO(1) 

NF*NF  0(2) 

NVT*NEO(3) 

NHS*NE  0(A) 

NZ«=NEQ(5) 

NMF 1 sNEO ( 6 ) 

NMF2.NF J<7) 

NMF3«NcQ ( 8) 

NMF*«NEQ(9) 

NMF5*NEQ(1  ) 

NMF6*NE0(U) 

NEFF=NE0(12) 

NZML«NMFI 

NZHHMNMF6 

<5*20>nmax»NPRIN,INOG,INORO»INDZMU»IPRES»NSPEC 

REF,  PROPERTItS 

RE AO (5. 21)  ROREF.PREF.ZMUHEF.TREF.CPREF 

COMB.  PARAMS. 

READ (5»2i )  STC.HC.HP.HS.SM 
XH«SM 

IF (SM.LT.l .0)  XH«I2,0I*SM/I,00B 
ZwF«I Z , 0 1 .1 ,oo8»XH 
X02*32./ZWF»(,5*XH/*,) 

XH2O«I8,016»XH/ZWF/2, 

XCO«28.0I/ZWF 

ZwA*28,85 

Y02«I6./**.0I 

YCO«28.0I/**.0I 

Z02«02»32./ZWA/X02 

EMA«(I,*XH/*.)/02*ZWA 

FSO«ZWF/EmA 
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STCsl./FSO 
XN2*. 768554 
XN2*1.-Z0?»X02 

c*«*  properties 

READ (5«2i )  ( 2MW ( L ) ,L=1«NSPEC> 

ZMW(1)*ZWF 

REAO  <5*21 )  (CPJ(L) «L*1.NSPEC) 

C»»«  NON“OIM.  NOS. 

READ (5«2l )  (RP(K3) »K3*1,NUMA) 

REAO (5*21 )  (PR(K4) ,K4*1,NUMA) 

C«**  INITIAL  CONDITIONS 

READ ( 5.21 >  TAN3.ENZML.ZMUK 
C»**  VALUES  FOR  THE  PLOTCT 
00  200  K*  I  .KAO 
;VAH(K)»K 
INUD(K,1)*99 
200  CONTINUE 
IT* IE*  1 
IVAH( IT) »NMF5 
I T* IT*  1 
IVAHIIT)«NHF6 

REAO  15*20)  1','VAL.NVJ.NVAR 
IF  (1.3T.NVAR)  GO  TO  71 
00  70  LL*1 iNVAR 
REA015.20)  IVAR(LL) 

KsIvAR(LL) 

RE AD (5. 22)  ( 1N001K.NI, , JNOO ( K , N 1 ) , V JE ( K , N I ) , N 1*) *4) 

IF ( I NOD (K.l) .LE.1N.AND.NVJ.GT. 4)  REAO (5. 22) 

♦  (INOD(K.NI) . JNOO ( K . NI ) . V JE ( K , N I ) . N 1*5 . NV J ) 

70  CONTINUE 

71  CONTINUE 

C**»  READ  VELPLT  INDIC1ES 
READ (5.20)  NVP 
IF  (l.GT.NVP)  GO  TO  75 

REAO (5.24)  llDP(l) ,IJGP(I) ,IVP( I) »I*1»NVP> 

75  CONTINUE 

C  REARRANGE  ANAHE  AND  ASTMBL  FOR  EQUATION  SOLVING  ORDER 
00  95  Ksl.NUMA 
KNtU*NE()  ( K ) 

ASYMRL(KNE0)*IS7MBL(K) 

00  95  1*1,6 

ANAHE ( I . KNEQ) *  IN AHE ( I • K ) 

95  CONTINUE 

00  90  J*KK,KAQ 
ASYMflL(J)*ISYMBL(J) 

00  90  1*1,6 

ANAhE ( I , J) *iname ( I f J) 

90  CONTINUE 

C...KVB...  07/26/71 

REAO (5, 1000) IOLO, INEW, INOX, IV AP 
1000  FORMAT (4T10) 

PL0NLY*I0L0.LT,0  0  <13/71 

IOLO* 1A8S ( I  OLD)  08/13/71 

IF(NVAR.GE.O)  GO  TO  BOO 
NVf.R* IE* I A8S  ( INOX) 

800  CONTINUE 

WRITE (6,999) IOLD. INEW, INOX, I VAP 
999  FORMAT ( 1H1 ,*  IOLO.  INEW.  INOX,  IVAP  *  «,4I3) 

IF ( IOLD.EO.O)  GO  TO  990 
REWIND  IOLO 
REAO (IOLO) 

READ ( IOLO)  A 
REAO ( IOLO)  G1 
REAO ( IOLO)  G2 
REAO (IOLO)  RO 
REAO  HOLD)  ZM'J 
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REACH  OLD)  T 
READ ( 10LD)  PF 
998  CONTINUE 

C»»»KVB*»» 

C»»*  SET  THE  INTIAL  VALUES  FOR  THE  INLET  VELOCITIES. 

C*** 

C»»*  SET  THE  INITIAL  VALUES 
00  100  LMN«I'JN 
VIN(LMN)>0.r 
100  CONTINUE 
C • • • KVB • • • 

C»»»KVB*»* 

DO  JO  J*1 t JN 
00  30  I«1 . IN 
IF(IOLO.NE.O)  60  TO  35 
00  60  K>I.NUMA 
A(I,J,K)»I.E-30 
IFIK.E0.NHF1>  A(I(J(K)>ENZML 
IF (K.E0.NMF3)  A ( 1 .*>. K) aFNZML 

C... KVB... REMOVED  USE  OF  NMF4.NMF5 . NMF3  REPRESENTS  *F* 

IF (k.EQ.NHS)  A ( I t J.K) «CPREF*( TREF-536.67) 

IF  (K.EO.NVT)  A(I.J.NVT)»0.0 
60  CONTINUE 

C«* 

PF ( I  * J) *0.0 
RO ( I • J) aROREF 
61(1 • J) >0.0 
62(1,J>»0.0 
ZMU11.J)«ZMUREF 
T(I.J)«TREF 
35  CONTINUE 

FEVAP ( I t J) >0. 

30  CONTINUE 
C. . .KVB. . r 
31  CONTINUE 

c»**kvb*** 

C**»  READ  INITIAL  CONDITIONS  FOR  ANY  VARIABLE 
READ (5.20)  NVARI 
LV1«NUMA.T 
LV2»NUMA.R 

IF  (l.GT. NVARI)  GO  J&  141 
00  140  IIVsltNVAR- 

110  READ (5.23)  lOVARt  (VAR(.j)  .JaltJB) 

00  140  J>I(JB 

IF ( I DVAR.EO.LV 1)  GO  TO  120 

IF ( IDVAR.EQ.LV2)  GO  TO  140 

IF(lNOX.GE.0.ANO.(J.LE.JA.0R.(J.GE.JAI.AN0.J.LE.JB») 1 
*  *0(1  (J(IOVAR)aVARIJ) 

GO  TO  140 
120  VlN(J)aVARIJ) 

140  CONTINUE 

141  CONTINUE 

REAU (5i20) JS1 f JSf IS1 t IS 
00  201  J>I(21 
VF  ( J)  «0. 

201  VF1  ( J)  aO. 

IF ( JS.GT. JSI >  READ (5(21 ) (VF(LO) (OaJSl(JS) 

IFIIS.LT. IN. AND. JS.GT.JS1)  READ<5(2l>  ( VF1 ILO) (LDaJSl(JS) 
EMJETaENZHL 

IF (JS.GT .JSI >  READ(S(2I>  EMJET 

00  202  JaJSl ( JS 

A ( 1S1 ( J.NMFI ) aEMJET 

A(IS.J(NMF1)»EMJET 

A ( ISI (J(NMF3) aEMJET 

A(IS.J(NMF3)«EMJET 

202  CONTINUE 


07/26/71 


07/26/71 

07/26/71 


07/26/7 1 


08/09/71 


07/26/71 

07/26/71 

07/26/71 


( 


* 


t 
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SWIRL  VELOCITY 

C • 9  9  KV0 9  9  9 

IF (PLONLY)  I0L0»  -IOLD  08/13/71 

IF (PLONLY .0R.IN0X.lT»9)  00  TO  1050 
CaaaiC'H*** 

00  50  JajAI t JR 
VT(J)aTANR*VIN(J) 

IF(JAl.EO.JB)  60  TO  AO 
A ( I . J.NVT ) »VT ( J) 

AO  CON'INUE 
SO  CONTINUE 

R£A0(5«26)  NILO9NIHI9 ILO » IHl . JLO# JHI ,T I GN t NEV 
26  FORMAT(6IIO.FIO. 09110) 

IF ( ILO. £0,0)  ILO«IAB 
IF(IHT.EO.O)  IHIsIN 
IF ( JLO.EQ.O)  JLO1 I 
IF  <JHI.EO.Ot  JHlaJC 

300  REAU (5925) (IEVII) »JEV( I) *DUM( I) ilal.8) 

25  FORMAT (8(2I2.F6.0)) 

IF (EOF (5) )  330«3I0 
31 P  CONTINUE 

DO  320  IIaI«5 
lalEV(II) 

Ir (I.EO.O)  GO  TO  330 
JsJEV(II) 

FEVAP ( 1 9 J) aQUM (II) 

320  CONTINUE 
GO  TO  300 
330  CONTINUE 

IFI1VAP.GT.U)  REWIND  IVAP 
IF (IVAP.GT.O)  READ! IVAP) FEVAP 
-  IF  ( I VAP.GT .0)  REWIND  IVAP 
RETURN 

1050  CONTINUE 

IF (JA1.GE.J8)  GO  TO  1070 
DO  1060  JaJAl.JB 
VT (J)aA(I.JtNVT) 

1060  CONTINUE 
1070  CONTINUE 
C*##KVB### 

C»»* 

10  FORMAT  ‘likb) 

20  FORMAT  (8110) 

21  FORMAT  (8F10.9? 

22  FORMAT  (A(2I5.FI0.O) ) 

23  FORMAT  <I10/<flF10.0)) 

2A  FORMAT  (8(I2tIX,I2,IX.I2,2X) ) 

END 

•DECK  HE 

SUBROUTINE  MEADCI 
•CALL  CMD 

COMMON/BLHE/TANB , SM 
C*«»  ADUEO  FUNCTION  ACYL 

ACYL<R29Rl)a(R2”RI)#(R2*RH/2. 

C»»»»»»»*»»*«»»»***»***'‘** •••••••••*•*•••••••••*••<  ••••••#•••••••••••••• 

C  *AHE>UINGA*  SUBROUTINE 

C  THIS  SU0R.  PRINTS  OUT  SOME  OF  THE  INFORMATION  FED  IN 


C<HH9t9#99tH9tiMt9#9tt#t9t<t9t«9ltlH««tMI»H<MHMMH*«HMH 

WRITE  (698O) ATITLE 

WRITE(69A00)NW9NF9NVT9NHS9NZKtNMFl9NMF29NMF39NMFa9NMF5tNMF6tNEFF 


0 

AOO  FORMAT (•  EQUATION  NUMBER  ORDER 
♦  •  NW  nF  NVT  NHS  NZK 

•/ 

NMF1 

NMF2 

NMF3  NMFA  NMF5  NMF6 

♦  NEFF»/2X9 12 ( 12  »AX) // 

♦•  OTHER  VARIABLE  NUMBERS*/ 

♦•  G»  G2  RO  ZHU  T 

PF 

VI 

V2*/ 

♦  •  13  1A  15  16  17 

18 

19 

20*// 
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DUHWRAIN  ITERATION 

NMF5i_ D"2 

NMF6«  C0«/" 

DURING  NOX  ITERATION 

NMF5«  NO 

NMF6a  N02V 

FOR  FINAL  PRINT  «INOX«0 

NMF5«  02 

NMF6«C0»/ 

INOXal 

NMF5«N0  NMF6«  C0«/ 

IF 

IN0X»2 

(1N0G.E0.21G0  TO  10 

NMF5«  NO 

UMF6a  N02*/) 

WRITE  (6,270) 

GO  TO  20 
10  WRITE  (6,200) 

20  IF  ( 1N0ZMU.E0.21G0  TO  30 
WRITE  (6,90) 

GO  TO  *0 
30  WRITE  (6,100) 

♦0  IF  ( 1NORO.E0.2) GO  TO  50 
WRITE  (6,110) 

GO  TO  60 
50  WRITE  (6,120) 

60  IF  (IPRES.E0.2)  GO  TO  65 
WRITE ( 6,300) 

GO  TO  67 
65  WRI TE (6,310) 

67  WRI TE (6, 130) 

IF  (l.GT.IE)GO  TO  5 
00  70  K«1,IE 

IF ( I  NOE (K) • E  0 • 1 )  WRITE (6, ) *0) ( ANAFE (L,K> »L«1 , 6) 

70  CONTINUE 
6  CONTINUE 

WRITE  (6,150)  JN,  IN,  U.IHINU)  ,  1MAXIJ)  ,  J»l,  JN) 

WRITE  (6«210)JA,JA1«JR,JC,1AB, IC,RA0A,RA0A1 ,RA0B»RA0C,RA0N,0A»DA1 , 
*0B,UCN,0N 

WRITE (6,290)  X2AX I S» XI CONV » X2C0NV 
WRITE (6,1 000 )CC,OC,ROWF 
C. • «KVB« • , 

UmX*HAXO(IN,JN) 

WRITE (6,220) (I. XI (I) ,X2(I) ,I«1,IJMX) 

C»*»RVB*** 

C»»*  CALCULATE  MEAN  INLET  VELOCITIES 

<:••••• 

VINPMaO .0 
VINSMaO.O 

IF(JA.EO.l)  GO  TO  SOI 

FLOWaO.O 

ROMPwO.O 

00  500  J«1,JA 

ROMPaROMP.RO ( 1 , J) 

IF (J.EO.l )  GO  TO  500 
HSP*(RO(l,J).RO(l.J-l) )/2, 

VSP=(VIN(J> ♦VIN(J-l) )/2, 

OX2*X2 I J)-X2 ( J-l ) 

IF  (IN0G.EO.2)  OX2«ACVL(R(J).R(J-D) 

FLOW *F LOW «RSP*VSP*OX2 

500  CONTINUE 
ROMPaROMP/FLOAT ( JA) 

OAHF.A«X2(JA)-X2(li 

IF (INDG.E0.2)  OAREAaACYLIRI JA ) ,R ( 1 ) ) 

VINPMaFLOW/ (ROMP*OAREA) 

c*»* 

50 1  CONTINUE 

IF (JA1.EQ.JB)  GO  TO  503 

FLOWaO.o 

ROMSaO.O 

00  502  JajAltJB 

ROMSaROMS.ROUtJ) 

IF(J.EQ.JAl)  GO  TO  502 
RSP«(R0(1,J)*R0(1.J-1) )/2. 

VSP»(VlN(J)*VIN(J-l))/2, 


07/26/Ti 

07/26/71 
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0X2*X2( Jf-X2(j-1> 

IF  (1N0G.E0.2)  0X2»ACYL(R(J> ,R(J-1) ) 
FL0w«FL0W.RSP*VSP*0X2 

502  CONTINUE 

ROMS=fiOMS/FLOAT<JB-JAl.) ) 

OAHEA*X2(JB)-X2( JA1) 

1FUNOG.EO.21  0AREA«ACYL(R(JB) ,R( jAI) ) 
V1NSm*FL0W/(R0MS*DAREA> 

£••• 

503  CONTINUE 
VlNJMsO. 

VSP*0. 

V1NJM1«0. 

VSP1«0. 

1FUS.EO.JS1)  GO  TO  610 
FLOW=0. 

ROMJsO. 

ROMJsROMEF 

RSP«ROREF 

FLOWl«0. 

ROHJlsO, 

ROMJ1 *ROR£F 
RSP1«R0REF 
00  600  J-JS1.JS 
C  ROMJl *R0MJ1 »R0 ( 1 S  <  J) 

C  ROMJstHOMJ.ROUSl.Jl 

lF(J.EO.JSl)  GO  TO  600 
OX2=X2(J)“X2(J“l) 

IF ( 1NUG.E0.2I  0X2" ACYL (R(J) ?  R ( J“l) > 

C  RSP*(R0US1»J)‘R0(1S1,J-1) >,C. 

VSP«(VF(J) ♦VF(J-l) 1/2. 

FL0NaFL0W«RSP*VSP*0X2 
1FUS.E0.INI  GO  TO  600 
C  RSPl*(R0(TS.JI*R0<lS«J-l))/2. 

VSP1 * ( VF1 ( J) »VF 1 (J-l))/2. 

FL0wl«FL0Wl»RSPl*VSPl»0X2 
600  CONTINUE 

0AREA=X2(JS1-X2(JS1) 

IF ( 1N0G.E0.2)  OAREA«ACYL  <R( JSl ,R( JSl 1 ) 

C  R0MJ«R0MJ/(JS-JS1«1) 

VINJMssFLOW/ (ROMJ«OAREA| 

C  ROM J1 sROM J1 / ( JS- JSl ♦ 1 ) 

V1NJM1*FL0W1/(R0MJ1«0AREA) 

610  CONTINUE 

WHITE (6. 1601 VlNPM.VlNSM.VINJM.VINJMl, 

♦  ROHEF.PREF.ZMUREF.TREF.CPREF.GC.ZJC 
IF ( 1N0ZMU.E0.21  WHITEI6.8001ZMUK 

000  F0RmAT(1X,4HZMUK,2X,G12.5) 

WRITE (6.20001 TANB.ENZML.EMJET 
WR1TEI6.260ISTC.HC.HP.HS.SM 
C»**  Zw.Z0.ZC  ARE  UN0EF1NE0 

C«**  IF  ( INOE  (NZK.EO.  1 1  WRITE  (6.  WO)  ZA  .ZB.ZC  ,PR  <NZlO 
WR  1TE( 6,100 1 NSPEC. (ZMW(I) .1  =  1. NSPEC) 

WRITE (6.3000)  (CPJ (1 > , 1»1 vNSPtC) 

WRITE (6. 4000) N1L0.N1H1.1L0.IH1.JL0.JH1.TIGN.NEV 
WRITE <6.50001  ( RP <11  » 1  *1 » 1<?)  *  (PR(I).1»1.12) 

C...KV0.  .  . 

80  FORMAT ( IX. 1 2A6) 

90  FOHMAT MX, AL  AM  INARA) 

100  FORMAT (IX. ATURBULENTA) 

110  FORMAT ( 1 X , A1NC0MPRESS1BLE A) 

120  FORMAT! IX, ANON-UNIFORM  OENS'TYA) 

130  FORMAT! IX, AOEP  VARIABLES  ARE  A) 

140  FORMAT (4X.6A6) 

150  FORMAT! IX, AGEOMETPY  A/A  A, 13, A  ROWS  A, 13, A  COLUMNSA/ 

•  3X, AJA ,5X» A1M1NA.5X. AIMAXA/ (IX, 13, 219)1 


07/26/71 

07/26/71 

07/26/71 

07/26/71 

07/26/71 

07/26/71 

07/26/71 
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161 


170 


rotourmrrwMvsicM.  data-#/ 

®  4X,#V  PRl  *, G12.4,3X,*V  SEC  #,612.4/ 

•  4X»#  V  JH  #«61?,4,3X«#V  JM1  #,612.4/ 

•  4X.AR0REF  # ,612.4, 3X, #P  REF  #,612.4/ 

•  4X,#ZMUR£F#«G12.4,3X,#T  REF  #,612.4/ 

•  4X,#CP  REF#,G12.4,3X, 

•/4X,#GC  #,612.4,3X,#7JC 

•I 

FORMAT I 

•  4X,#ZA 

•  4X,#2C 


#,612.4/ 


#,612.4/ 


#«G12.4.3X.#ZB 
#»G12.4»3X,#PR  N/K#,G12.4/) 

ISO  FORMAT (•  MUM  SPECIES*  *,12/*  MOLEC  WT5»ZNW»  *,6F12.3) 
3000  FORMAT (*  SPECIFIC  HEATS, CPJa  ••6F12.S) 

190  FORMAT I4X,#NSPEC#» 13/ 

•  4X,#ZMW  #,6G12.4/ 

•  4X«#CP  J  #,6G12.4/ 

•  4X,#PR  #,6G12.4) 

200  FORMAT  MX, POTHER  OATA  #/ 

•  4X,#CC  #,G1?.4,3X,#0C  #,612.4/ 

•  4X.XNMAX  # , 14  > 

210  FORMAT  (1X»#  JA« JA1 «  JB.  JC.’-B,  IC#/ 


220 

260 


FORMAT (1X»#  JA, JA1 , 

•  IX, 13.514/ 

4 1 X , #  RAOA,  RAOA1,  RAD8, 

•/  1X.SG12.4/ 

•  IX,#  OA,  0A1 ,  OB, 

•/  1X,SG12.4/1 

FORMAT  4 1 X « # 1  OR  J  XI U)  X2(J)#/ 

•  MX, 16,2012. 4)1 

FORMAT <4X,#STC  #,G12.4,3X,#HC  #,012.5/ 


RAOC, 

OCR, 


RAON# 

ON# 


07/26/71 

07/26/71 

07/26/71 

07/26/71 

07/26/71 

07/26/71 

07/26/71 

07/26/71 

07/26/71 


07/26/71 

07/26/71 

07/26/71 

07/26/71 

07/26/71 

07/26/71 

07/26/7) 

07/26/71 

07/26/71 

07/26/71 

07/26/71 

07/26/71 

07/26/71 

07/26/71 

07/26/71 

07/26/71 

07/26/71 

07/26/71 

07/26/71 

07/26/71 

07/26/71 


♦4X.*HP  »  »,G12.S«3X,*HS  ■  •»G12.5/4X,#SM  ■  4.012.5/) 

270  FORMAT  MX, #CARTES1AN*) 

280  FORMAT  1 1X,#CYL1NDRICAL#> 

290  FORMAT  MX.#  X2AXIS  X1CONW  X2CONV#/ 

•  IX, 3612.4) 

300  FORMAT  MX, #CONSTANT  PRESSURE*) 

310  FORMAT  MX. #N0N-UN1F0RM  PRESSURE#) 

1000  FORMAT (4X.*CC  ■  4,F12.8,3X,*0C  a  #,F 12.S.3X.4R0WF  a  4.F12.5/) 

2000  FORMAT (4X.4TANGENT  SWIRL, TANBa  »,F1Z.5/ 

•  4X.4INT  FUEL  FRAC.ENZML*  *.F12.5,3X,4JET  FUEL  FRACEHJET*  4, 

♦F12.S/) 

4000  FOHMAT (•  IGNITION-  NILOb  a , 14 , 4  NIHla  • , 14/1 1 X, *1L0*  *,12,*  1H1* 

♦  4,12.4  JLO-  4.12.4  JMIa  4,1  ,•  ION  TEMP.TIGNa  *,F12.4// 

♦  •  ITERATION  FOR  START  OF  EVAPORATION,  NEVa  4,14/) 

5000  FORMAT (•  RELAXATION  PAPAMETERS ,RP  a*,6F8.5/27X,6FB.5/ 

«  4  EQUATION  PRANC.TL  NOS., PR  a4,6F8.5/27X,6FB.S/) 

END  07/26/71 

•DICK  SV 

OVERLAY ( SOL V, 2,0) 

PROGRAM  SOLVCK 
•CALL  CMO 

C» 

C  ##  jOLVE##  subroutine 

C  THIS  SUrtRt  CONTROLS  THE  ITERATION  PROCEDURE 

C44444,,,,„„„„„„0„4*„„„„„„„„„„„„MM,44,(*„„4444„, 

IFINOXSOL)  go  to  205 

C...KVB... CONTROL  WILL  COME  BACK  TO  NEXT  STATEMENT  AFTER  CORE  07/26/71 

C...KVB...HAS  BEEN  SET  UP  FOR  THE  NOX  SOLUTIONS  07/26/71 

4  CONTINUE  07/26/71 

C44*KVB*44  07/26/71 

KEQaNUMA«3 

1F(1NORO.E0.2.ANO.I.NOT.NOXSOL)»  CALL  DENSC1 
KEQ»NF 

1FI.NOT.NOXSOL)  CALL  B0UNC1 
KEUaNW 

TF ( .NOT .NOXSOLi  CALL  B0UNC1 
WRITE (6,919) 
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t. 

ft 

£ 

r 

f  * 


9 

tt 

« 

ft 

P 

| 


§».. 

% 


919  FORNAT(//fXi#  INITIAL  BOUNDARY  VALUES  FOLLOW  A//) 

CALL  PR INC I 
WRITE  (6.100) 

IF  ( 1 .GT. IE) GO  TO  5 
00  10  KsI.IE 

IF ( I  NOE (K) .EO.l)  WRITE(6«!I0)K« (ANAME(LtK) .L»It6> 

PHIMN ( K1 >0« 

RSOUIKl-O. 

10  CONTINUE 
S  CONTINUE 

WRITE  (6.120) (ASYM8L IK) *K«I • IE) 

NITER«1 

NNNsNPRlN 

KVDHTaO 

ICONVkO 

20  IF (NOXSOL)  CO  TO  21 
KEO-1 

IF ( INORO.EO.2)  CALL  OENSC1 
CALL  MVELCT 
CALL  MVfiCCl 
CALL  VISCC1 

21  CONTINUE 

IF  (l.GT.IE)OO  TO  IS 
00  JO  K*1 .IE 

IF (NITER. Gl ,*0. ANO.ABS (RSDU (K)).LT.CC.ANO. ICONV .EQ.O)  60  TO  30 
OIFMAX (K) >0 • 

RSOU(K)«0» 

C*#*KVB### 

K£U«K 

IF ( IN0E(K1.E0.11  CALL  F0E0C1 
IFtlNOEIKI.E0.il  CALL  B0UNC1 
30  CONTINUE 
15  CONTINUE 

WRITE  I6.130IN1TER.  tRSOUtKl.KaldEI 
WHITE  16.1501 (OIFMAXIKI.Kat.IEl 
WRITE  16.2001  tIRStKI.JRStK) .Kal.IEl 
200  FORMAT  (10X.20I6/) 

RESaRSDU (11 
IF  (2.GT.IE1G0  TO  25 
00  *0  Ka2,IE 

IF  I ABStRSOU (K) 1 ,GT. ABStRESI 1  RES-RSOU (K) 

40  CONTINUE 
25  CONTINUE 

IF ( .NOT . NO X SOL  I  NMAINaNlTER 
IF  (.NOT .NOXSOL)  NNOXafl 
IFINOXSOL.ANO.dNOX.LT.Oll  NMAIN-0 
IF (NOXSOL)  NNOXaNlTER 
IF  (NITER. GT.NMAX1G0  TO  90 

C*«*  AODEO  PRINT  OUT  OF  FIRST  FOUR  ITERATIONS  TO  ALLOW  CHECK  OF  INI? 
C*«*  BOUNDARY  CONDITIONS 
50  CONTINUE 

IFtNITER.EO.il  GO  TO  70 
IF  (NITER-NNN1 80 .60 t 60 
60  NNN«NNN«NPRIN 
70  CONTINUE 
KVOHT-1 
C. . . KVB. . . 

IF ( • NOT. NOXSOL)  KEQaNW 
IF (.NOT. NOXSOL)  CALL  80UNCI 
C***KVB*»* 

CALL  PRINC1 

WRITE  (6.120) :ASYMBL(K) .Kal.IE) 

KVORTaO 
BO  CONTINUE 

NlTERaNITER»l 

IF(ABStRES) .GT.CC.OR. NITER. LE. 10)  GO  TO  20 


07/26/71 


07/26/71 

07/26/71 

07/26/71 

07/26/71 

07/26/71 

07/26/71 


07/26/71 


07/26/71 
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If  «I£W97?0.1>  60  TO  85 
ICONVal 
60  TO  20 
85  CONTINUE 
KVOHTal 
C • • »KV8 •  •  . 

IFUNOT.NQXSOL)  KEQaNM 
IF ( .NOT .NOXSOL)  CALL  0OUNC1 
C«aaKVB*»* 

IF (NOXSOL)  60  TO  206 
60  TO  355 

90  WRITE  (6.140INITER 
IF (NOXSOL)  60  TO  206 
60  TO  355 

C-..KVB...SET  UR  FOR  NGX  SOLUTION  AFTER  RE6ULAR  PROBLEM  HAS  C0NV60 
205  CONTINUE 

C...KV8...FLIP  THE  FIRST  TWO  ITEMS  IN  THE  EQUATION  OROER  LIST 
C...KVB...WITH  THE  ITEMS  RESERVEO  FOR  NO  ANO  N02... NAMELY  NMF5 
C...KVB...AND  NMF 6 
lESalE 

IE*I A8S ( INOX) 

DO  220  Jal.JN 
I!PIMIN(J) 

I2«IMAX(J) 

DO  210  1*11 t I 2 
TAa*(I,JtNMF5) 

A(I,J,NMF5)»A(I,J,1> 

A(ItJtl) sT  A 
TA»A I I . J.NMF6) 

All, J.MHF6)a*(I,J,2) 

A(l.J,2)aTA 

IF(IE.EO.l)  A(I.J.2)ao. 

210  CONTINUE 
220  CONTINUE 

DO  230  Lai  .6 
lATaANAME (L.NMFS) 

ANAME (L.NMF5) *ANAM£ (Lt 1 ) 

ANAMElL.DalAT 
IATa*NAME(L.2I 
ANAME  CL. 2) a*NAME (L.NMF6) 

ANAME (L.NMF6) a I AT 
230  CONTINUE 

lATaASYMBL (NMF5) 

ASYHRL ( NMFS I aASYMBL ( 1 ) 

ASYMBL ( 1 ) al AT 
lATaASYMBL (NMF6) 

ASYMBL (NMF6) aASYMBL (21 
ASYMBL(2)«IAT 

C...KVB...FLIP  THE  EQUATION  INDICATORS 
IF(NW.EQ,l)NWaNMF5 
IF ( NW.EQ.2) NWaNMF6 
IF (NF.EQ. 1 )  NFaNM.r5 
IF (NF .EQ.2 ) NF»NMF6 
IF(NMFl.EQ.l) NMF1 aNMFS 
IF ( NMF 1 .EQ.2) NMF 1 »NMF6 
IF(NMF2.EQ.l)NMF2aNMF5 
IF (NHS.EQ. 1 ) NHSaNMFS 
IF (NMF2,EQ.2)NMF2aNMF6 
IF ( NHS.EQ. 2 ) NHS«NMF6 
IF (NMF3.EQ.ll NMF3 »NMF5 
IF(NVT.EQ.l)NVTaNMF5 
IF (NMF3,EQ.2)NMF3»NMF6 
IF (NVT .EQ.2) NVT»NMF6 
IF(NMF*,EQ.1)NMFA»NMF5 
IF (NZK.EQ.1)NZKbNMF5 
IF (NMF4.EQ.2)  NMFMNMF6 


07/26'71 


07/26/71 


07/26/71 
07/26/71 
07/26/71 
07/26  71 
07/26/71 
08/13/71 
08/13/71 
07/26/71 
07/26/71 
07/26/71 
07/26/71 
07/26/71 
07/26/71 
07/26/71 
07/26/71 
07/26/71 
07/26/71 
08/13/71 
07/26/71 
07/26/71 
07/26/71 
07/26/71 
07/26/71 
07/26/71 
07/26/71 
07/26/71 
07/26/71 
07/26/71 
07/26/71 
07/26/71 
07/26/71 
07/26/71 
07/26/71 
07/26/71 
07/26/  t'l 
07/26/7 i 
07/26/7) 
07/26/7J 
07/26/71 
07/26/71 
07/26/71 
07/26/71 
07/26/71 
07/26/71 
07/26/71 
07/26/71 
07/26/71 
07/26/71 
07/26/71 
07/26/71 
07/26/71 
07/26/71 
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IF<NZK.EQ.2)NZN  -(MF6 

NMFSal 

NMF6»2 

00  2*0  L»1 ,9 
IN0E(L)«9 
2*0  CONTINUE 
INOE  < 1 ) *1 
INOE  <2)»1 
GO  TO  * 

C»*«KV8»** 

206  CONTINUE 

C...KVB...THIS  ENTRY  IS  REALLY  A  SEPARATE  SUBROUTINE!  BUT  IT 
C...KV8...IS  INCLUOED  HERE  BECAUSE  IT  DOES  JUST  THE  OPPOSITE 
C...KVB...0F  THE  SECTION  BETWEEN  200*250  ABOVE. 

300  CONTINUE 

C...KVB... RESTORE  NW . .ETC  LIST 
NWbnEQU) 

NF«NEO<2) 

NVTsNEQOl 

NHSaNEOU) 

NZMNE0I5I 

NMF1«NE0(6) 

NHF2aNE0(7> 

NMF3»NEQ (0) 

NMF*bNEQ(9) 

NNF5«NEQ(1  ) 

NMF6*NEQ( 1 1 ) 

NEFF«NEO(12I 

NZNL»NHFl 

NZHH»NMF6 

IE-IFS 

00  320  Jal.JN 

I1«IMINIJI 

I2*1MAX(J) 

DO  31 0  I ■ 1 1 . 12 
TA*A ( I t Jt 1 ) 

A(ItJ.l)aA(I « J.NHF5) 

AII.J.NMFSJaTA 
TA«A ( I . J. 21 
A ( I « J,2) aA  < I • J.NHF6! 

A ( I . J.NHF6) »TA 
310  CONTINUE 
320  CONTINUE 

00  330  Lai, 6 
IAT  ANAME(L'l) 

ANAME (Lai) a ANAHE (L *NMF5) 

ANAnE (LYNNES)  »IAT 
I ATaANANE (L, NHF6) 

ANAME (L.NMF61 aANAME (L.2) 

ANAHE (L,2I «I AT 
330  CONTINUE 

I at»asyhbl ■ 1 I 

ASYMBL(II«ASYHBL(NMF5) 

ASYMBL,'HMF51  »iat 
I AT»ASYMBL (2) 

ASYHBH2)  aASYMBL  (NMF6) 

ASYMBL(NMF6) »IAT 
00  3*0  LalE.9 
INOE (LI »9 
3*0  CONTINUE 

00  350  Lai, IE 
INOE (L) *1 
350  CONTINUE 

^  100  FORMAT  (IH1.///I0X,*5HTHE  FOLLOWING  ARE  MAXIMUM  RES10UES  IN 
♦E,»1HL0  OF  INTEGRATION  AT  EACH  ITERATION  FOR..,//) 


07/26/71 

07/26/71 

07/26/71 

07/26/71 

07/26/71 

07/26/71 

07/26/71 

07/26/71 

07/26/71 

07/26/71 

07/26/71 
07/26/71 
07/26/71 
07/26/71 
07/26/71 
07/26/71 
07/26/71 
07/26/71 
07/26/71 
07/26/71 
07/26/71 
07/26/71 
07/26/71 
07/26/71 
07/26/71 
07/26/ VI 
07/26/71 
07/26/71 
07/26/71 

07/26/71 
07/26/71 
07/26/71 
07/26/71 
07/26/71 
07/26/71 
07/26/71 
07/26/71 
07/26/71 
07/26/71 
07/26/71 
07/26/71 
37/26/71 
07/26/71 
07/26/71 
07/26/71 
07/26/71 
07/26/71 
07/26/71 
07/26/71 
07/26 '71 
07/26/71 
07/26/71 

07/26/71 

07/26/71 

07/26/71 

07/26/71 

07/26/71 

07/26/71 

07/26/71 

07/26/71 


THE  FI 


461 


TABLE  XXVI.  (Cont) 


TTO  FURinrr  (TH  .A0X7T7V3H.  .6*6) 

120  FORMAT  <////lM0,30X,3SH.,NOTE*.  PREFIX  *M  DENOTES  RE$IDUE»//ll7M0 

. NOTE . LEFT-HAND-COLUMNS  FDR  FRACTIONAL  DIFFERENCES*  HI6HT-H 

* AND-COLUMNS  FOR  CORRESPONDING  ABSOLUTE  DIFFERENCES. ///6X.5HNITER. 

•  10(SX*lHR*A6)/(llXtlO(5X*lHR*A6)/)) 

130  FOHHATdM  •bX*I3.10(lPE12.3)/(!0X.lU(lP£12.3>/>> 

1*0  FORMAT  (32H0THE  PROCESS  OIO  NOT  CONVERGE  IN.I5.13M  ITERATIONS) 
150  FORMAT (1*X. 10(1 PE  12.3)/) 

3S5  CONTINUE 
ENO 

•DECK  0C 

SUBROUTINE  BDUNC1 
•CALL  CMO 

ACTLCR2.R1 ) a (R2-R1) • (R2*R1 )/2* 

WP(XI2)«0.0»XI2 
VS (XI2) >0*0*XI2 

WV (PELF  .wQ.ROPf OELROtETA?) ■- (OELF/ ( (ET  A2°0X1 ) ••2) *V0* (R0°/6**0ELR 
♦0/B. ) ) / (ROP/3. *5.»0ELR0/2*. ) 

VHV(VK.OELF.VO,ROP.OELRO.HAD)»-(OELF/(OX2*OX2)*va»(HAO*VK*OX2)*(RO 
♦P* (HAO/6. «mk*0X2/6. ) *OELRO* ( RAO/a , **K*0X2/1 0 . ) ) ) / (RAO*  CROP* (RAD/3* 

♦  ♦ 5 . • VK»  0X2/2*  » ) ♦ OE LRD* (5 • *RA0/2* . ♦ 3 . •  WK*OX  2/2  0 ,))) 
YY(YN*YP)al./(l.-(/P/VN)«*2) 

€•«••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••• 

C  //BOUNDARY*#  -  CONDITIONS  SUBROUTINE 

C***BDUNUARV  VALUES  FOR 

C*»*  STREAM  FUNCTION 

C*«»  VORTICITY 

C*»*  MIXTURE  FRACTIONS 

C««*  ENTHALPY 

C*»*  SVIRL  VELOCITY 

. . 

C 

C 

C***.*.*.*.*»*..M.*««......*......M..M*.****t*»M».M***M*MWI 

C  ZERO  AXIAL  GRAOIENTS  FOR  ALL  OEPENOENT  VARIABLES  f.T  EXIT 
C  QUADRATIC  PROFILE  NEAR  /AOIABATIC/  BOUNDARIES 
£••••••••••••••••••••••••••••••••••••••••••••••••••«•••••••«••••••*••••• 

KaKEQ 

RR«RREF/(GCPM*TREF) 

R0P»ZMV(1)«RR 
ROSaZMH (2) *RR 
C***  REVISED  ROUTING 

IF  (K.EO.NV)  GO  TO  290 
IF  (K.EO.NF)  GO  TO  10 
IF  (K.EO.NVT)  GC  TO  *30 
GO  TO  130 

C  FOR  STREAM  FUNCTION .  A(I.UtNF) 

. . . 

10  CONTINUE 

IF (NITER. GE. 3)  GO  TO  110 
ANF»1. 

IF (NI TER.EQ. 0 • ANO • iOLO.GT • 0 )  ANF«A I 1 , 1 *NF> 

C«»«  MODIFICATION  FOR  TIE  STREAM  FUNCTION  CALCULATIONS 
C  FROM  THE  GIVEN  VELOCITY  PROFILE 

C 
C 

IF(JAl.GE.JB)  GO  TO  21 
00  20  J*«JA1*JB 
VPSIMaO.O 
J»JB-( JA-JA1) 

IF ( J.GE. J8)  GO  TO  22 
00  23  USaJ.UB 
IF ( J5.lQ, JB )  GO  TO  23 
0AREAaX2(JS«l)-X2(JS> 

IF ( IN0G.E0.2)  OAREAaACYL  <R ( J5«l ) * R ( J5> ) 
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vpsiMBV(*sfM.io.$«iRoii.jsi*Ron*J5»ii>iMa.sA 

♦  I VIN I JSl ♦ V  X  N ( J5* 1 » ) ) *OAREA 
23  CONTINUE 

22  CONTINUE 

AIl.J.NFla-VPSIM 

20  CONTINUE 

21  CONTINUE 

IFIJAI.GE.JB>  FBASE»0.0 
IFIJAI.LT.JBI  FBASE“AII  , JAI .NFI 

c*»» 

IF(JA.LE.I)  00  TO  25 
00  30  LAaj • JA 
VPSIMbO.O 
JbJA-|LA-II 
IFU.GE.JAI  GO  TO  32 
DO  33  L5bJ« JA 
IF (L5.E0. JA)  GO  TO  33 
0AHEA«X2 (L5*l ) -X2 IL5) 

IF  I  IN0G.E0.2I  OaREAbACYL (AILS*! ) tR IL5I t 

VPS  I  Mb  VPS  I  H»  (0.5#IRO(I»L5I*ROU«L5bIIII#(0»5,IVIN(L5|b 

•  V I N I L5* 1 1  1 1 #0 ARE A 
33  CONTINUE 

32  CONTINUE 

All.J.Nt’)  ^>FBASE“VPSIM 

30  CONTINUE 

31  CONTINUE 

C«ss  ENO  STRM  CALCULATIONS  FOR  INLETS 
15  CONTINUE 
C 
C 

IF  (l.GT. INIGO  TC  25 
00  40  1*1. IN 
AO  AII.1.NF|bA|1,1,NFI 
25  CONTINUE 

IF  (IAB.GT.IC)GO  TO  35 
00  50  IbMBiIC 
50  All « JN.NFI ao. 

35  CONTINUE 

IF  1 1 .GT . I AB) GO  TO  AS 
00  60  lal.IAB 
AlI.JB.NFIaO. 

A  1 1 » JAI .NFIbAI I » JAI »NFI 
60  All. JA.NF)aA(I.JAI.NF) 

AS  CONTINUE 

IF  IIC. GT. INIGO  TO  55 
00  TO  IbIc.IN 
70  AlI.JC.NFIaO, 

55  CONTINUE 

IF  I JA.GT. JAI I  GO  TO  65 
00  BO  JbJA'i JAI 
BO  A 1 1 AB. J tNF I aA 1 1 • JAI iNFI 
65  CONTINUE 

IF  IJB.GT.JNIGO  TO  75 
00  VO  JbJB.JN 
90  AIIAB.J.NFIbO. 

75  CONTINUE 

IF  (JC.GT.JNIGO  TO  SS 
00  100  JsJC.JN 
100  AlIC.JfNFIaO. 

85  CONTINUE 
C 

C  MOO  FOR  JET  INLETS 
C 

IF ( JA.NE.l )  60  TO  601 
00  602  IalAB.IN 
A 1 1 , 1 ,NF ) jA 1 1 AB, JA.NF) 
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602  CONTINUE 
601  CONTINUE 

IF{2.GT,JS)GO  TO  600 
JSPIajSNl 

IF(JSPl.GT.JS)  GO  TO  600 
OO  610  JajSPl.JS 
AIlM.J.Nr  >»*IlSl.J-ltNF) 

♦  ♦ ( (R0(J) >H01J-1I )/2.)*( lvr<J-I)*VFl J) )/2.)*<X2<J)-X2< J-l) )* 

♦  i (Hu) •Ru-in/2.) 

610  CONTINUE 

IFCISI.GT.IS.OR.ISI.EO^IN)  GO  TO  612 
00  611  IalSl.IS 

611  A  ( 1 1 JS  tNF)  aA ( iSl  t  JS* NF) 

612  CONTINUE 

IF(JS1. GE.JS.0R.ISl.EQ.I5.0R.IS.F0.INI  GO  TO  616 

00  616  J4*JS1.JS 

J»JS-(J4-1) 

IF ( J.EO. JS)  GO  TO  615 

A(IS,J,NF)=A(IS.J«ltNF)-!PO(J)«RO(J»I) )*(VF1 (J)»VF1U«1>> 

♦  *(H(J)*R(J*I))/B.*(X2(J*I) “X2 <  J) ) 

615  CONTINUE 

616  CONTINUE 
IF(JSl.NE.l)  GO  TO  621 
00  620  IsIS'IN 

620  A(I,l,NFj.A(IS.JSl»NF) 

621  CONTINUE 
600  CONTINUE 

c  initialize  interior  grio  nooes 

IF(NITER.GT.O)  GO  TO  2900 
00  934  Ja?  * JNH 
IL«IMIN<J)M 

IH«IMAX(J)-I 
00  934  lalLtIH 

IFd.GE.ISl.ANO.I.LE.IS.ANO.J.GE.JSI.ANO.J.Lt.JS)  SO  TO  934 
IF ( IOLO.GT .0 )  GO  TO  52 

IFUS.LT..JAl.AN0.J.LE.jq.4N0.J.GE.JAI)A{I«J»NF>aA<ltJ«NF> 
IF(JS.EO.I.ANO.JA.GT.l.ANO.J.LE.JA)A(I,J.NF)»A(li J.NF) 

C 

GO  TO  934 

52  A(I*J.NF)aA(I.J.NF) /ANF  *A  ( 1 » 1  *  NF) 

934  CONTINUE 
2900  CONTINUE 
IIO  CONTINUE 

88aYYl2.*0ELXI  IIN-I)iXl(IN)-XHIN-I)) 

JSPlaJS*! 

IF(IS.LT.IN) JSPIal 
IFUSP1.GT.JC)  GO  TO  95 
00  120  Ja.iSPl  t  JC 

120  A(IN.J.NF) *88*A (IN“1*J«NF)-(86“I.)»A ( I N*2 • J.NF ) 

95  CONTINUE 
GO  TO  999 

C*>'*  REHOVEO  INLET  8.C.  CALCULATIONS.  THESE  ARE  SET  IN  8L0CK1 

C********************** . . 

c***  general  A0IA8ATIC*  IMPERMEABLE t  INERT  BOUNOaRY  CONDITIONS  KITH 
C***  ZERO  GRAOItNT  AT  WALLS  AND  EXIT  FOR  ANY  VARIABLE  L. 

C********** I************************************** 

130  L-K 
170  CONTINUE 

IF  (IAB.LE.2IG0  TO  200 
IF  <1.GT.IAB)G0  TO  125 
DO  190  Ial.IAS 

88»YY(2.0*OELX2(JB-I).X2(JB)-X2(JB-in 

A(I»J8*L)»BB*A(I.J8-l.L)-(88-I,0)*A(I,J8-2.L) 

IF  ( J8.EQ. JA1 ) GO  TO  180 

88«YY (2 .0*0ELX2 (JAI»I).X2tJAl»l)~X2(JAl)) 
A(UJA1.L)«B8*AII.JAI*1.LJ-(8B-1.0)*AII.JAI*2.U 
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mo  ir  uif.E«:3ii«f  to  iW 

BB»YY(2.0»OELX2( JA-1) ,X?( JA)-X2<JA-1) ) 

A(l,JA,L)xBB*A (I.JA-l ,L)-(Be-1.0)*A(I,JA-2,L) 

190  CONTINUE 
125  CONTINUE 
200  CONTINUE 

BB«YY(2.*OELXl <IA8«1>»X1  CIABM1-X1 (IAB)> 

IF  (JA.EQ.JAl.OR.<JAl-JA).LE.l)GO  TO  220 
JJAs JA« ! 

JJA1.JAI-I 

IF  ( JJA.GT . JJA1)G0  TO  135 
DC  210  Jx.JJA.JJAl 

210  A(IAB«J.L)«B8*A(IAB*1, J.L) - (8B-1 . ) *A ( IA8*2«J*L> 

135  CONTINUE 
220  CONTINUE 
JBBxJBM 

IF  ( J9B.GT.JN)G0  TO  145 
00  230  JsJBBtJN 

230  AlIARi J,L)>B8*A(IA8*1,J,L)-(BB-1.)*A(IAB*2«J,L> 

145  CONTINUE 

BB«YY(2.*DELX2(JN-11 «X2(JN)-X2(JN-11) 

IF  (UB.Gr.IC)GO  TO  155 
00  240  I x I AB t IC 

240  A ( I « JNsLI xBB*A ( I  * JN-1 «L ) - (BB- I , ) *A (  I , JN-2*L ) 

155  CONTINUE 

B8=YY<2.#0ELX1 (IC-1) .Xl ( IC> -XI { IC-ll ) 

IF  (JC.GT.JNIGO  TO  165 
00  250  JxJC.JN 

250  A ( IC. J,L) «BH*A (IC-l«JrL)-(BB-l.)*A(IC-2tJ»L) 

165  CONTINUE 

BBxYY(2,*dELX2<JC-1) tX2(JC) -X2  < JC-1 ) ) 

IF  (IC.GT. INIGO  TO  ITS 
00  .60  I ■ I C  t  IN 

260  A ( 1 < JC«L) «B8*A ( I « JC-1 ,L) “(8B«) . )  • 1,JC-2*L) 

175  CONTINUE 

BH=YY  < 2«*OELX2 (21 ♦ X2  <21 -X2 (11) 

IF  Cl. GT. INIGO  TO  1B5 
00  270  I xl  .  IN 

ACI.l .L)xR8*A(i,2,L)— (8B— 1 #)*ACl«3*L) 

270  CONTINUE 
1B5  CONTINUE 

BB*YY<2.*0ELX1 < IN-1), Xl < IN) -X1C IN-11 ) 

IF  Cl.GT.JOGO  TO  195 
DO  cflO  Jxl.JC 

IFCIS.EU.IN.ANO.J.LE.JS.AND.JS.NE.l)  GO  TO  2B0 
A ( IN, J,L) xBB*A (IN-1, J,L)-(HB-1,)*A( IN-2* J*L) 

IF (01 (IN, J) .LE.0..AND. (K.E0.NMF1 .OR.K .EG.NHF2 .OR.K .E0.NMF3.0R, 
♦K.EU.NMF4.0R.K.EQ.NMF5.0R.K.EQ.NMF6) )  A(IN,J,L)«0. 

2B0  CONTINUE 
195  CONTINUE 

IF(JS.EQ.l)  GO  TO  899 

BB«YY(2.*DELX1<IS1-1),X1(IS1)-X1US1-1) ) 

DO  BOO  J* JS1 , JS 

IF(YF(J).EQ.O.)  A(IS1,J,L)xBB*A(IS1-1,J,L) - (BB-l . )*A(IS1-2,J,L) 

IF (VF1 CJ) .EO.O..ANO. IS.LT.(IN-l))  A ( IS. J,L) >BB*A( ]S»1 « J*L) 

♦  -CHB-1 «)*A(IS*1,J,L) 

600  CONTINUE 

IFCJS1.GT.3)  BBlxYY!2.*0ELX2(Jsl-l),X2(JSl)-X2(JS-l)) 

BB*YY (2.*OELX2 ( JS« 1) *X2(JS*1)— X2(JS) ) 

IS1P1«IS1«1 
00  BIO  IxISlPl,IS 

A(I,JS,L)x8B*A(I,JS»l.U)-(88-l)*A(I,JS*2,U 

IF (JS1.GT.3)  A(I,JSl,L)x881*A(I,JSl-l,L)-(BBl-l)*A(I,JSl-2.L) 

810  CONTINUE 
699  CONTINUE 

C...KVB., .LIMIT  MASS  FRACTION  TO  «  VALUES  09/10/71 
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i  r  ( it .  nevw  it*  NB‘.x«>jr.TWF7rxxTrrT7NErrNHrjTjr»)o .  k  .  ne  ;  nmf  *  r*Nov 

*  K.NE.NMF5.AN0.K.NE.NMF6)  GO  TO  999 


00  1285  Jal • JN  09/10/71 

00  1285  Tal.lN  .(9/10/71 

IF»A(I,J  k'.tT.O.)  A ( I t  JtK) *0#  09/1T/71 

1285  CONTINUE  09/10/71 

C**«K.V.B.«»a  09/10/71 

GO  10  999 


FOR  VURTICITY....  AdtJ.NW) 


290  CONTINUE 

AFLOAT  (INOG-l) 

I‘  (KVORT.NE.l)GO  TO  370 
C**“»  CALCULATE  NALL  VORTICITIES  BEFORE  PRINTING  (KVORTal) 

0X2»X2( JN) »X2 ( JN-1 ) 

IF  (1AB.GT.IOGO  TO  205 
00  100  lalABtlC 

300  A ( 1 . JN.NW) a*HW (-UK t A ( I » JN-1 , NF ) • A { I  * JN- 1 tNW) *  HO ( I « JN ) * RO ( I t JN-1) -R 

♦  0(1  * JN) fRAONI 
205  CONTINUE 

OXlaXl(MB*ll-Xl(IAB> 

IF  (JA.GT.JAl)GO  TO  215 
OG  310  JaJA.JAI 
IF(J.EQ.l)  GO  TO  3300 

A ( 1 AB. J. NW) aWVM (A(lAB»lfJfNF)-A(I AB t  JtNF )iA(IAB*l«JiNW)«RO(I»BfJ) t 

♦  RO ( 1 AB* I  t  J) -MO( 1 AB«  J) »R(J) ) 

3000  CONTINUE 
J10  CONTINUE 
215  CONTINUE 

C***  CORRECTEO  GOSMAN  PROG  TO  SEPARATE  JA  AND  JA1  CALCULATIONS 
IF  ’.GT.IABIGO  TO  225 
IF  .JA.EO.I)  GO  TO  319 
OX2aX2(J«|-X2(JA-l) 

00  318  lal.lAR 

A (If JA.NW)*WHW(-WKfA(l.JA-l.NF)-Ad,JAtNF) t A ( I f JA-1 .NW) fRO(IfJA) tH 
♦0(ItJA-l)-R0(If JAltRADA) 

318  CONTINUE 

319  CONTINUE 

IF(JA1. EQ.JN.OR.JAl.E0.il  GO  TO  225 
0X2aX2(JAlM)-X2(JAl) 

00  320  lal.IAB 

320  A(ItJAl.NW)aWH9(NKfA(l.jAldtNf)-A(IfJAltNF>fA(!f JA1  ♦  I  .NW)  .RO II . JA 
♦1) .HO(I,JAld)-RO(I,JAI) .RAOAI) 

225  CONTINUE 

DXl*Xl (lAfld)-Xl ( 1 AB) 

IF  (JB.GT.JNIGO  TO  235 
00  330  JaJB.JN 
IFU.EQ.il  GO  TO  3001 

A(IAB.J.NW) aWVW (A(IAB*1.J.NF).A(IAB*1 f  J t NW ) tRO ( I ABf J) .RO ( I AB* I . J) - 
♦RO( IABfJ) |R(J)1 

3001  CONTINUE 
330  CONTINUE 
235  CONTINUE 

IF ( JB.E0.1 )  GO  TO  2*5 
0X2«X2(JB)-X2(JB-1) 

IF  ( I .GT . 1 AB) GO  TO  2*S 
00  3*0  lal.IAB 

3*0  A ( I . JB . NW ) aWHW (-WK  » A ( I .  JB-1 iNF) . A ( I »  JB- 1 »NW) »R0 ( I . JB ) .RO < I . JB-1 ) -R 
♦0 ( I. JB) . RADBl 
2*5  CONTINUE 

OXlaXldCI-Xl(lC-l) 

IF  (JC.GT.JN)GO  TO  2S5 
00  350  JaJC.JN 
IF(J.EO.l)  GO  TO  3002 

AdC.J.NW)awVWU(IC-l.J.NF)  .AdC-l.J.NW)  »RO(ICtJ>.ROdC-l»J>-RO(IC 
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♦  tj)  .RI.D) 

3002  CONTINUE 

350  CONTINUE 
255  CONTINUE 

IFlJC.EQ.l)  60  TO  265 
0X2sX2IJC)-X2(JC-l) 

IT  (IC.GT.INJGO  TO  265 
00  360  1 sIC t IN 

360  A 1 1  *  JCtNH)  *WHW I-WK. A  (It  JC"1 tNF)  t  A(  1 1 JC-1  *N«)  t«0  ( 1 1 JC)  tROI  1 1 JC-I)  -R 
*0(1 t JC) .RAOC) 

265  CONTINUE 

IFlJS.EQ.l)  60  TO  3005 
0X2«X2(JS*I)-X2(JS) 

00  3000  IsISltlS 

A ( I » JS.NW) *WHW I WK.A I I t JS*1 tNF ) ~A I 1 t JS tNF) . A ( l . JS*1 .NW5 .RO I l t JS) • 
♦RO(l tJS*l) -ROlI t JS) tRIJS)) 

3004  CONTINUE 

3005  CONTINUE 

C***  CALCULATE  INLET.  EXIT  ANO  CENTERLINE  VORTICITIES  DURING  ITERATION 
C***»*  WHEN  CYLINDRICAL  COORDINATES  ARE  USEO.  I.E.  IM06«2t 
C***«*  OBTAIN  W/R  (VORTICITY/RAO)  AT  AXIS  FROM  THE  QUAORATlC  EXR 
C*»»**  W«A*R  »  8«R*Rt  A  ANO  B  BEING  FUNCTIONS  Or  RI2)  ANO  R ( 3 ) 

370  IF  (1.6T.INI60  TO  275 
00  390  1*1 .  IN 

IF  (X2AXIS.6T. 0.0)60  TO  380 
IF  dN06.EO.l)A(Itl«M)s0.0 

IF  <lN06.E0.2)A(l9l9NW)aA(!92tNM)*(X2(2)/(X2(3)*X2(2) ) ) •  I  A( I .2.NW) 

♦  ”A (1 .3.NW) ) 

60  TO  390 

380  0X2sX2(2).X2(ll 

All. 1  *  NX) sWHW IMK.AM.ZtNF) “All  9 1 .NF) .All .2.NW) .RO(I.l) .R0(I.2)-R0( 
♦1.1) .X2AXIS) 

390  CONTINUE 
275  CONTINUE 
JAAxJA-l 

IF12.6T.JT, A)  GO  TO  285 

DO  400  J*? t JAA 

IF  INI TER.LE • 1 )  All . J.NW) *0. 

LV1*NUMA*7 

IF  (MTER.UT •  1 )  A( 1 . J.NW) s*AOF  (1»J,2»LV1)/R(J) 

400  CONTINUE 
285  CONTINUE 
JAA* JA 1*1 
JBB*JB«1 

IF  I JA4.6T. JBB)  60  TO  295 

00  410  JsJAA.JBB 

IF (NITER. LE. 1 )  All .J.NW) *0. 

LVl*NUMA*7 

IF (N1TER.6T . 1 )  All.J.NW)«-A0F(l.J.2.LVl)/R(J) 

410  CONTINUE 
295  CONTINUE 

IFI2.6T.JS)  60  TO  701 
IFIJS.EO.l)  60  TO  701 
JS1R1*JS1*1 
JSMl*JS-l 

IFIJS1P1.6T.JSM1)  60  TO  701 
00  700  JsjSlPlt JSM1 
Alibi . J.NW) *0. 

700  A 1 1 S  t J.NW) *0 . 

701  CONTINUE 

BB«YY(2.»0ELX1(1N-1).X1(IN)-X1(!N-1>) 

JCMlsJC-1 
00  420  J32.JCM1 

IF  I  J.6E.JS1 .  ANO.  J.LE.JS.ANO.  IS.EO.IN,'  GO  TO  420 
LV1«NUMA*7 

IF(G1(IN,J),LE.0..AN0.NITER.6T.1)A(IN, j.NW)*-A0F(IN»J,2.LVl)/RIJ) 
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IF  (G1  < Oi.'J  I .  LE^TT.YAW-'VTTEfi .  LE  .'ll- VTTSm.'NW)  »0, 

IF  CGI  (IN.Jl  .GT.O.)  AMN.J.NW)  ■t»8*A(IN-i.  J. Nd) - (BB- 1  . )  *A < IN-2. J.Nd) 

IFCG1 (IN.Jl .LF.O.)  ~i»N, J.NKfaO. 

430  CONTINUE 
305  CONTINUE 
GO  TO  999 

^•••••••••••••••••••••••••••••••••••••*  ••••••••• 

C  FOR  SdTRL  VELOCITY 

••••••• 

430  CONTINUE 

BB«YYC2.*OELXl<IN-l),XUtN)-XI  CIN-1))  4 

IF  (l.GT.JC)GO  TO  31b 
00  440  JsltJC 

440  A(IN.J.NVT) ■BB*A CIN-l.J.NVT) "IBB* 1 • ) *A ( IN-2  » J. NVT) 

315  CONTINUE 
999  CONTINUE 

RE f URN  - 

ENU 

•OECK  MR 

SUdHOUTlNE  MVBCCI 
•CALL  CNO 

DIMENSION  AUC21, 21;I8) 

equivalence  :aci,i,i),aqci,i,1)) 

. . . 

C  FFMASS-VELOCITY-bOUnOARY-CONOITIONM  subroutine 
C  THIS  SUBR.  CALCULATES  Gl,  G2  ON  TEE  BOUiVOARIES 

. . «•••**• . . 

c 

(;••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••<>•••••••••• 

C  UNIFORM  INLET-VELOCITY  DISTRIBUTIONS... 

C  ZERO  AXIAL  GRAOIENTS  OF  STREAM  FUNCTION  ANO  VORTICITY  AT  EXIT 
C  VEXiT  IS  THE  MEAN  VELOCITY  AT  EXIT 

. . . 

RR»PREF/(GCPM*TREF1 

ROP«ZMM(I)*RR 

IF  ( JA.EQ. JB) ROPaROC 1.1) 

R0S*ZMW(2)»RK 
IF  Cl.GT.JAjGO  TO  5 
00  10  Jal.JA 

C»»«  REVISEO  Gl  FOH  VARIABLE  INLET  PROFILES  AT  PRIMARY  INLET 
G1 ( 1 . J) aRO  CltJ)*VIN(J) 

10  G2 ( 1 . J) aO . 

5  CONTINUE 

IF  (JAI.GT.JB)GO  TO  15 
00  20  JaJAl.JB 

C*»»  REVISEO  Gl  FOR  VARIABLE  INLET  PROFILES  AT  SECONOARY  INLET 
Gl ( 1 1 J) «R0 (l.J)*VIN(J) 

20  G2 ( 1 • J) *0. 

15  CONTINUE 
JJCaJC-I 

IF  (2.GT.JJOGO  TO  25 
DO  30  Ja£. JJC 

Gl ( IN. J) aAOF (IN,J»2*NF)/H(J) 

02 ( IN. J) aO.O 
30  CONTINUE 
25  CONTINUE 

JSlMIaJSI-1  • 

IF (2.GT. JS1MI )  GO  TO  210 
DO  200  Ja2.jSlMl 

200  Gl(IN,J)a40F<IN,J,?,NF)/R<J> 

G2(IN,J)aO. 

210  CONTINUE 

IFCJSl.GE.JS)  GO  TO  230  > 

00  220  JajSl.JS 
G2 ( I  SI  * J) «0 . 

Gl ( IS1 * J) aROCISl * J) *VF ( J) 
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IF  11S1.NE.~IS*  SI  <  IS*  jfaHO1.' IS.  J)  *VFY <J> 

G2  (ISiJ)ii). 

IF  t f S.LT. IN.AND. J.LT .JC)  G1 ( IN, J) »ADF ( IN* J*2*NF> /R ( J) 

G? ( IN. J) >0. 

220  CONTINUE 
230  CONTINUE 
JSP1«JS* 1 
JCC-JC-1 

IF  (JSP1.GT.JCO  GO  TO  250 
00  240  J*JSPI.JCC 
62 ( IN. J) >0. 

gi;in,j>«aof(In,j,2.nfi/R(j> 

240  CONTINUE 
250  CONTINUE 

0X2aX2(2)-X2(l) 

B8«l. /<!.-< (X2 I2)-X2(1))/(X2(3)-X2(I) > )**2> 

IF  (2. GT. INIGO  TO  35 
00  40  1*2. IN 

IF  (X2AXIS.EQ.0.0)GI(l.l>»8&»Gl (I .21- 1BB-I . I *61 t I *3> 

IF  (X2AXIS.GT.0.0)GI(I,1)»0.0 
40  G2 ( 1 1 1  * *0. 

35  CONTINUE 
ROSUMsO.O 

IF  (l.GT.JC)GO  TO  45 
00  50  Jsl.JC 
50  ROSUM*flo5UM*RO ( IN. J) 

45  CONTINUE 

ROM£AN*ROSUM/FLOAT(JC> 

IF  (IN0G.EQ.l)VEXlT«-A(lN*I«NF)/(X2tJC>»R0MEAN) 

IF  (lN0G.EQ.2)VEXIT«-2.*A(IN.l,NF)/( (RA0C*RA0C-X2AXIS*X2AXIS)*R0ME 

♦ani 

return 

END 

•OECK  ME 

SUBROUTINE  MVEI.CT 

•call  cm 

DIMENSION  AQ (21 .21 • 18) 

EQUIVALENCE  (A11*1*1)*AQ (1*1*1)) 

FFMASS-VELOCITYFA  subroutine 

THIS  SUHR.  CALCULATES  G1  ANO  G2  AT  ALU  POINTS  NOT  ON  THE  BOUND. 

IF  (2.GT . JNM) GO  TO  5 
00  20  J=2,JNM 
IL»IMIN(J)*1 
IH«IMAX(J)-1 
IF  ( JA.EQ. JA1 ) 60  TO  10 
IF  (J.EQ.JA.0R.J.EQ.JA1) IL»IAB*1 
10  CONTINUE 
♦IF  (J.EQ.J8) IL»IAB*I 
IF  (J.EQ.JC) IM-IC-l 
00  20  I*ILiIH 

IFU.6E.JS  .ANO.J.LE.JS.ANO.I.GE.ISI.ANO.I.LE.TS)  60  TO  30 
G1 ( I • J) «AOF (I*J*2»NF)/RiJ) 

G2 ( 1 • J) *-AOF (I*J*I*NF)/R(J) 

60  TO  20 
30  6I(I«J)*0. 

G2 ( l « J) »0« 

20  CONTINUE 
5  CONI INUE 
RETURN 
END 
•OECK  VI 

SUBROUTINE  VISCC1 
•CALL  CMO 

. . . 
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C  FAVISCDSITYM  SUBROUTINE 
LOGICAL  INLET 

DATA  ,C3.CA.CH.ZC.XSL.CL2tCKV/.OI6..005*10<.  .22*  20.*  .2*  *02/ 

IF  ( INOZMU.EO. 1 ) GO  TO  ?0 

ZMFU*2  «* ( A ( I AH* JA t NF ) -A ( I AB* 1 »NF ) ) 

ZMA 1R*2 •• ( A ( I  AS • JB  »NF ) -A ( I AB  * JA 1 *NF) ) 

ZMJ>Z  *  * ( A (ISi*JSI*NF)»A(ISI*JS*NF)) 

Zh J1 >2*  * ( A (IS.JS.NF)“A(IS*JS1*NFI) 

IF l  INDG. EG. 2)ZMJ*ZMJ*3. 1*159 

IF (  INDG.EQ.2) ZMJ1*ZMJ1*3< 1*159 

IF  ( INDG.EO.2) ZmFU*ZMFU*3.  1*162 

IF  (INDl>.E0.2)ZMAiR>ZMAIR*3.1AI62 

REVISED  ZHVV  FDR  MEAN  VELOCITIES 

ZmVV*ZHFU*VINPN*VINPM*ZmaIR»VINSM»VINSH 

ZMVVbZMVV* ZMJ*V INJM*V I NJH*ZMJ1*V I NJM i*V  INJMI 

IF  (INDE(NVT) *EO*I ) ZMVVbZKVV*ZNAIR* (Ail  * JB-I »NVT)»»2) 

ZMVV«ZNVV**0. 33333 

A A«ZMUK« I ( 2 . *X2 ( JN ) ) **0 . 666667 ) *ZMV V/ t ( OCN-DA )  »*0 , 33333 > 
S«X2<JA)-X2<1) 

S ! *X2 ( J8l -X2 l J'l ) 

IF(A?AAIS.ta.O.)  S*2.*S 
SJ«X?(JSI-X2IJS1> 

IFIX? AXIS* EQ *0*1  SJ*2.*SJ 
ILIH«IISI-IA»I/2*IA» 

JLIM*(JA1-JA)/2*JA 
IF (S.EOoOt  JLIMafl 
IF(Sl.EO.O)  JLIM«JN 
TF (ZMUK.GT .0*1 CKV*ZMUK 
It'  (I.GT.JNIGO  TO  S 
00  10  J«I,JN 
IL*IMIN(JI 
IH*IMAX(J) 

IFU.GT.JLIM)  GO  TO  50 

SL«S 

YL-X2IJ) 

AK*ABS ICKV*VINPM*VI NPM) 

GO  TO  60 
50  SL«SI 

ak»abs<ckv»vin$m»vinsm) 

YL*X2 ( JN) -X2 ( J* 

60  CONTINUE 

00  10  I-IL.IH 
XS*X1  CD-X  ( I  AB) 

ELAH>CA«(CB«XSL) 

IF1XS/SL.LT.XSL)  ELAM*CA*  lCB*XS/SL) 

C  FOR  NOOES  AT  INLET  USE  INITIAL  INPUT  VALUES  OF  NZK 
INLET*. F. 

IFII. E0.1.AND.J.LT.JB.AND.J.GT.JAI) INLET*. T, 

IF (I *EO*I .AND. J.LT* JA) INLET**T, 

IFU.EQ.ISl.AND.J.LT.JS.ANO.J.GT.JSl.ANO.VF(J)  .NE.O . ) IN_ET*.T. 
IF ( I *EO. 1 S. AND* J.LT. JS.ANO.J.GT • JSI . AND* VF1 ( J)  .NE.O . ) I NLET«.T. 
IF  1 INLET) GO  TO  BO 
C  FOR  NODES  NEXT  TD  NALL  AK*0 

IFIJ. GE.JN-DGD  TO  65 
IFd.LE.IAB*! .AND. J.GE. JB«1 ) GO  TO  65 
IF(I.LE.IAB*1.AN0.J.GE.JA-1.AN0.J.LE.JA1*I)G0  TO  65 
IF ( I .GE.IC~1 • AND. J.GE. JC~1 )  GO  TO  65 

IF(J.LE.JS*1.AN0.J.GE.JSI-1.ANd.I.GE.IS1«1*AN0.I.LE.IS  *1 ) G0T065 
IF ( J.LE.2.ANO.X2AXIS.NE.0.)  GO  TO  65 
GO  TO  70 

65  A ( I • J.NZK) *0. 

GO  TO  BO 

tO  A 1 1 • J.NZK) *AK 
80  CONTINUE 

IF(A(I.J.NZK).LT.O.)  A(I*J.NZM*0, 
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ZL«tL*M*YL 

ZmUSI.J)«ZC*SQRT(A<I.J.nZK»1*RD(I,J)*ZL*ZHUREF 
10  CONTINUE 
5  CONTINUE 
GO  TO  40 

20  IF  (l.GT.JN)GD  TO  IS 
00  JO  J*i  ,  JN 
IL«IMIN(J) 

1H«IMAX(J| 

00  30  1*U.«IH 
ZMU( I« J) aZMUREF 
30  CONTINUE 
IS  CONTINUE 
40  CONTINUE 
RETURN 
END 

•DECK  OE 

SUdHDUTlNE  0ENSC1 
•CALL  CNO 

01HENSI0N  MF-  J-, J  ,EMF(6I 
LOGICAL  IK'LET 

DIMENSION  AhR ( 6t6 ) .CCLI6.6) .CHL (6,6) ,CCN (6) ,CHM (6) . ALR ( 6.6) 

•  ,CCH<6,6) .CMH16.6) 

OATA  (MF(LL1 ,LLal.01/-2007. 1.-3846. 7, -5774. 7,0. .-1697. 5.0./ 

OATA  (  (ALR(N.L)  .Nal.6)  ,t»1.6)  / 

♦4. 24977.-6. 91266E-3. 31. 602 1E-06.-29. 7154E- 09. 9.S1036E- 12.-10 186.6. 
♦2.1701. 10.378lE-03»-10.7339E-06.6.34592E-09. 1 .628o7E-12.-4B352*6» 
♦4. 15650 *-1.7244 JE-03.5.69823E-06. 4. S93E-09. 1.42337E-12. -30288.8. 
♦3. 71 899.-2.51 673E-03. 8.58374E-06.-8. 299B7E-9. 2. 78o82E« 12.-1057.67. 
♦3. 78713.-2. 17095E-03.5.07573E-06.-3,47377E-9. .772168E-12.-14363.5* 
♦3.69161.-1 . 33326E-03 . 2. 6503 1E-06.-.976883E-9.-.099772E- 12.- 1062.8/ 
OATA  ( (AHR(N.L) .N«l»6) .La1.6l  / 

♦1. 17957, 10. 9505E-03.-4.06221E-6..713703E-9.-.0474904E-12. -9855. 66. 
♦4. 41293. 3. 19229E-3.-1.297H2E-6..241474E-9.-.01674299E-12, -48944.0. 
*2.67075.3.03l72E-3,-.853S16E-6,.U790SE-9,-.006]9736E-12.-29888.9. 
♦3.S976l..78i4S6E-3.-.223867E-6..042490E-9t-.00334602E-12,-1192.79, 
♦2.951 15, 1.55256E-3.-.6191 14E-6, .1 135o3E-9»-.00778827E-12,»14231.8, 
♦2.85458, 1 .59763E-3.-.625663E-6,. 1 13158E-9.-.00768971E-12.-890. 174/ 

FFOENSITYF*  SUBROUTINE 
MIXTURE  DENSITY  CALCULATION 


1F1NITER.GT.21  GO  TO  6l0 
£MC*hC 

IF (HC.EO.O • ) EMC*HP 
00  605  Lai, 6 
RMal.98726/ZMH(L) 

00  600  Nal.S 

CCL(N,L1«ALR(N.L1#RM/11.8**(N-111 
CCH(N,L1»AHR(N.L1*RM/(1.8«*(N-11I 
CHL ( N.L) «CCL (N.L) /N 
CMH (N.L) *CCM (N.Ll  /N 
600  CONTINUE 

CHL (6.L) a  ALR  16.L) *RM*1 .8 
CHH16.L) a  AMR ( 6 • L > *RM*1 .8 
60S  CONTINUE 
4  610  CONTINUE 

CHL (6.11 »EHC*XCD/YCD*HF (2) ♦XH20*HF (31-264,2 

CHH (6,1 ) »CHL (6. 1 1 *72.883 

TVAPa530. 

HS»hF ( i 1 -264 .2* T VAR* (CHL (1 » 1) ♦TVAP*(CHL(2» 11 ♦TVAP* (CHL (3, 11 
♦  ♦TVAP* (CHL  <4. 11 ♦TVAPa(CHL(5, 11 1 1 1 1 1 
.  RRaPREF/OCPM 

IF  (1.GT.JN1G0  TO  5 
DD  40  Jal.JN 
IL«1M1N(J1 
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IH-IHAXTjr 
00  40  I-IL.IH 
I«.i.T».F. 

IFU.ES.l  .ANO.J.L£.JA.ANO.VINPM.N£.0.)  INLET*. T. 

IFU.EQ.1.AN0. (J.GE.JA1.AN0.J.LE.J8  ).ANO.VINSM.NE.O.)  inlet*. t. 

IF  <  I .EO.IS.ANO. U.GE.JS1.AND.J.LE.JS) .AND.VINJMl.NE.O.l  INLET*. T, 
IF<I.£O.IS).ANU.U.GE.JSl.AND.J.L£.JS).ANO.¥INJM.NE.O)  inlet*. t. 

£•••• 

P-PHEF 

C  calculate  mixture  fractions 

F*ACI .J.NMF3) 

F04.’*Z02*X02*U.-F> 

IFlMC.tO.O.)  A  < I . J.NHF1 )*F 
EMCHX-AI I .J.NMF1 ) 

EMC02*A ( l « J.NMF21 
EHM20*XH20*(F-EHCHX) 

EH02*F02-x02* (F-ENCHX) -Y02*EHC02 

EMC0»(XC0.X0Z*YC0/r02)*(F-ENCHX)-YC0/Y02*(F02-EM02) 

EHF(1)*EMCMX 
EM?C?I*ENC02 
EHF  C3I *EMH?0 
EMF I4)*EM0? 

EMFC5)*EHC0 

EMF (6) *1 .-EMF { 15 “EMF (2) «EMF (3) -EMF (4) -£MF (5) 

00  <:(>•  KK-l.NSPEC 
IF  (EMF<<CX)  .LT.O.l  EMF(KK)*0. 

IF  lEMFIKH) .GT.1.1  EMF  <KKI *1 . 

200  CONTINUE 

EMF (6)*1 .-EMF ( 1 l-EMF (2) -EMF 1 3) -EMF (4) -EMF (5) 

00  615  N*1 .6 
CHMINt  *0. 

CCM(N)«o. 

00  615  L*1 .6 

IF ( T  < I . J) .LT.1S00.I  CHM (N) *CMM (N) *CHL (N.L) *EMF  < L ) 

IF ( T C I < J! .GE.1800.5  CHM (N) -CHM (N) *CHH (N.L) *EMF (L> 

IFIN.LT. 6. ANO.T(I.J).LT. 1800.)  CCM(N) aCCM(N) *CCL <N.L) *EMF (L> 

IF  IN.LT .6. ANO.T ( I. J) .GE. 1800. 1  CCM( N) ■CCM(N) *CCH(N.L) *EMF ( L> 

615  CONTINUE 

C  CALCULATE  MOLECULAR  WEIGHT 

90  CONTINUE 
SUM-0.0 

IF(l.GT.NSPEC)  GO  TO  105 
00  100  NJal.NSPEC 
100  SUM*SUM»EMF  CN J) /ZMW (NJl 
105  CONTINUE 

IF(5UM.LE.0.0)  SUM-1. /ZMW(l)  08/13/71 

AMOLWal ./SUM 

C  CALCULATE  TEMPERATURE 

CPBAR-O. 

IF  (1.GT.NSPEC1  GO  TO  35 
00  JO  L-l.NSPEC 
30  CPUAR>CPRAR«CPJ(L)*EMF(L) 

35  CONTINUE 

IF(Td.J) .GT.2660.)  EHC*HC-.2187*T(I.J)*581, .42 
HF ( 1 1 *EHC*XCO/YCO«HF (21 »XH20*MF  <31 
CPIN*F*CPJC1)«(1.-F)«(Z02*X02*CPJ(4).XN2*CPJ(61) 

AH*CPIN« (TREF-536.67) *F*HF  < 1 1 
SHF-0. 

00  500  LL*1.6 
SHF*EMF (LL»*HF ILL) *SHF 
500  CONTINUE 

T ( I . J) *536.67. ( AH-SHF) /CP8AR 
TREFH-TREF 

IF (INOE(NHS).EO.l.ANo. INLET)  TREF-TII.J) 

HCHX»HF(l>-264.2.TREF*<CHL(l»l>.TREF*(CHH2»l).TREF*(CHL<3»l) 

♦  ♦TREF*(CHL(4.1).TREF*CHU5.111)  1) 
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H02  ■CHCT5*fT  OHEF*  (CrtL  (1*4)  *TREF* (£HL (2*4)  *TREF* (CHL(3»4) 

♦  *TREF»(CHL(4,4) *TH£F*CHL<5,4) ) ) )  ) 

HN2  aCHL(6*6>  »TREF*(CHL<1»6)*THEF*(CHL<2.6)*TREF*(CHL(3*6> 

♦  *TREF» (CHL (4.6) ♦ TREF»CHL (5,6) ) ) ) ) 

TREFMREFH 

IF (INLET)  A ( I « J.NHS) ■F#HCHX«F02*h02*XN2# ( 1 • -F)  *HN2 
HT0T«A(I,J,NHS) 

1F(IN0E(NhS) .ME.DhT0T»F*HCHX*F02*H02*XN2»(1.-F)«HN2 
TR»T  ( I «  J) 

NCHKaO 
620  CONTINUE 

nchk«nchk»1 

CPBARbCCMI 1) *TR# (CCHI2) *TR*(CCM(3> »  TR*  ( CCH (4) »TR*(CCH<5) ) ) ) > 
0HUaCHM(6)-HTDT*TR»(CHN(l) ,TR*(CHM(2) *TR*(CHN(3>  *TR*(CHM<4) 

♦  *TR*CHM(5) ) ) ) > 

TR*TR-OHO/CPBAR 

IF (NCHK.GT j 1 0 )  60  TO  625 
IFUBSCOHO/HTOD .GT..001)  GO  TO  620 
GO  TO  630 

625  WRITE  (6*640)  I  » J*NCHK 

640  FORMAT (IX*#  I  J  NCHK  IN  0ENS  #,315) 

630  CONTINUE 
T(I.J)aTR 
510  CONTINUE 

A ( I , JtNEFF) «0. 

IF (F .GT.O..AND.HC.GT.O.)  A  1 1 , J,NEFF) ■ IMF ( 1 ) -SHF/F) /HC 
C  CALCULATE  DENSITY 

IF  IIPRES.E0.2)  P«U.«PF(I,j;)»PREF 
20  OENSTY»P*AMOLR/(GCPH»TIl#J) ) 

RO ( I i J ) =RD#F»DEnST Y* ( 1 ,-ROWF) «RD  <  I ,  J) 

40  CONTINUE 
5  CONTINUE 
RETURN 
ENO 

•OECK  FO 

SUBROUTINE  FOEOC1 
•CALL  CHO 

WC1H ( WK.OELF .ROP.OELRO .RAO) ■- iOELF/ <OX2»OX2 ) ) / (RAO« (RDP* (PAD/3. *5. 
♦•WM0X2/24 . )  «0ELRO* (S.*RAD/24,*3.*WK*0X2/20 .  > ) ) 

WC2H<WK. ROP.OELRO. RAO) a-(RAO*WMOX2)*(ROP« (RAD/6. *WKaDX2/8.)*DELRD 

♦  • < RAO/8 .«WK*OX2/10. > ) / (RAO*  <R0P# (RAO/3. *5,* WK# 0X2/24.) *OELRO# (5.*R 
♦A0/24.*3.»RK*0X2/20.) ) ) 

HC1V)0ELF.R0P.0ELR0.ETA2)»-0ELF/(((ETA2*0X1)«*2)*(R0P/3.*5.«0ELR0/ 
•24.) ) 

WC2V (ROP.OELRO) ■- (R0P/6.*0ELR0/8. ) / (R0P/3.*5.*0ELRD/24. ) 


##F‘lNITE-01FFERENCE -EQUATION##  SUBROUTINE 


K«KEO 

IF  (2.GT , JNM)GO  TO  5 
PHIMAXbO. 

EMLIMbA. 

DO  180  J«2,JNH 
IL"I  (1N(J).1 
IH#IMAX(J)-1 
IF  ( JA.EO.JADGO  TO  10 
IF  ( J.EQ.JA.OR. J.EO. JA1) ILaIA8*l 
10  CONTINUE 

IF  ( J.EQ.JH) ILaIAS*l 
IF  (J.EQ.JC) IHaIC-l 
00  1B0  I a I L • IM 

IFd.GE.ISl .ANO. I.LE. IS.ANO. J.GE. JS1 • ANO. J.LE. JS)  GO  TO  ISO 
IF (K.EQ.NH.ANO. ( J.EO, JS.OR. J.EQ. JS1) . ANO. ( I .EQ. ! IS1-1 ) .OR. I «EQ, 
♦  ( IS* 1 ) ) .ANO. ( JS.GT. 1 ) )  GO  TO  20 
IF  (K.EQ.NH.ANO. ( J.EO. JA. ANO, I ,EQ. ( I A0*1 ) ) ) GO  TO  20 
IF  (K.EQ.NW.AN0.(J.EQ.JAl.AN0.1.EQ.(IAe«l>>)00  TO  20 
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ir7K7ro^;iNovnn?Q.ja.ANO.i.Eo.(T£M«irneo  Torzo 
60  TO  30 

CAL.  VORTICITIES  AT  PTS.  ONE  MESH  AMAY  FROM  RROTRUOINB  CORNERS 
20  CALL  COEFCT  (I. J.NF) 

YY«A(I,J,NF)*(CE*CM*CN*CS) 

YY»YV«{CE*A(I*1 * J.NF) *CM#A ( 1*1 .J.NF) •CN*AII» J*1*NF) •CS*AiI»J“l»NF) 
♦  ) 

2*A ( I •JtNM) 

A(I.J,NP)aYY/R(J) 

60  TO  170 
30  CONTINUE 

CALL  SORCCMI.J.K.SOURCE.ZO.EMLIN) 

CALL  COEFCT(I.J.K) 

IF  (K.NE.NW)GO  TO  140 

c««««  INCORPORATING  b.c.  for  vorticity  in  the  finite  oiff.  formulation 
c««««  UR  TO  STATEMENT  NUMBER  130 
ZW«U. 

ZWMUaO.O 

IF  (I «EO.IL. ANO. ( J.GE. JB.OR« ( J.LE. JA1 • ANO. J.6E. JA) ) ) 60  TO  40 
IF  ( I .EQ.IH.ANO. J.GE. JC)GO  TO  70 
60  TO  BO 
40  CONTINUE 

IF  (J.EO.JB.OR.J.EO*JA1.0R.J.EQ.JA)60  TO  130 
LIEM«I-1 
COE  ■•■CM 
60  TO  90 
SO  LJNS«J«1 

WKNS«FL0AT«1-IN0G) 

IF  (J.EO.JNM)RAONSsRAON 
IF  (J.EO. (JB-1))RA0NS«RA0B 
IF  tJ.EQ.UA-l))RAONS«RAOA 
IF  U.E0.(JC»1))RA0NS>RA0C 
CONS»CN 
ZWHALF*2W 
GO  TO  100 
60  LJNS»J-1 

WKNS*FLOAT ( I NOG* 1 ) 

RAONSaR (LONS) 

CONSaCS 
60  TO  100 
70  LIENal«i 
CQENaCE 
GO  TO  90 

BO  IF  (J.EO.JNM)GO  TO  50 

IF  (O.EO.(JA-D.ANO.I.LE.IAB)GO  TO  50 

IF  U.EQ.(JC-1).AN0.I.GE.IC)G0  TO  SO 

IF  (J.EU.UA1*.  ).ANO<:.LE.IAa;GO  TO  60 

IFll.GE.ISl.ANO.I .Lt. IS .ANO. J.EO. ( JS*1 ) )  SO  TO  60 

IF  ((JB-JA1).GT.2.AN0.(J.E0.(JB-1).AND.I.LE.IAB)>G0  TO  50 

IF ( JSl .GT< 1 .AND. I «LE • IS. ANO. I .GE . I  Si • ANO. J.EQ. ( JSl«l ) )  GO  TO  50 

GO  TO  130 

90  OXlaABS(Xl(LlEH)*Xl(D) 

A (LIEN. J.NW) aWCl V l A ( I « J.NF) -A (LIEW* J.NF) .RO (L IEN. J) .HO (I . J) -RO (LIE 
♦V,J),R(J|) 

ZBa(.QEWawC2V (ROiLlEW. J) ,R0( I • J) -ROIL IEN. J)> 

ZWMU»ZWMU»ZW#ZMU (LIEW. J) 

GO  TO  110 

100  0X2*ABS (X2 (L JNS) -X2 ( J) ) 

A(I«LJNS,NY)aWClH(NKNS» A(I.J»NF)-A(I,LJNS.NF),RO(I.LJNS).RO(I*  U-R 
♦O(I.LJNS) . RADNS) 

ZHaCCNSawc2H(MKNS«R0(I«LJNS) .R0( I * J)-RO (I .LJNS) *RaONS) 
ZWHUaZWHU*ZW«ZMU  ( I  .L  JNS) 

IF  (L JNS.EQ. ( J»1 > ) GO  TO  130 
GO  TO  120 

110  IF  (I.E0*(IAB«1) .AN0.J.EO.JNH)0O  TO  50 
IF  ( I.EO. ( IC"1) »ANO« J»EO»JNM)GO  TO  SO 
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60  TO  fjff 

120  IF  ((JB-J»1).E0.2.ANO.(J.EO.(JBM).ANO.I.LE.IaB)>00  TO  SO 
130  CONI INUE 

(••••  END  V0RT1CITV  B.C.  SPECIAL  FORMULATION 
UO  IF  (K.NE.NF)  GO  TO  160 
IF ( JS.LE. 1)  GO  TO  200 
IF (K.NE.NF)  GO  TO  160 

IF ( (J.EQ.JS.OR.J.EO.JSI) .ANO.I.EO. (ISM) ) 

*  GO  TO  150 

IF ( (J.EO. JS.DR.J.EO. JS1 ) .ANO.I.EO. ( IS1-1) .ANO.VF(J) *N£.0.) 

♦  GO  TO  151 
200  CONTINUE 

IF  (K.EO.NF.ANO. ( J.EO. JA.ANO. I .EO. ( I A8M ) > ) GO  TO  ISO 
IF  (K.EO.NF.ANO.(J.EO.JAI.ANO.I.EO.(IABM)IIGO  TO  ISO 
IF  (K.EO.NF.ANO. (J.EO.JB. ANO.I.EO. (1*8*1))) GO  TO  ISO 
GO  TO  160 

151  A(i.J,NF)«A(IM.J.NF) 

GO  TO  180 

152  A(I,J,NF).A(I,J-1»NF) 

GO  TO  180 

ISO  A(I,J.NF)aA(IM,J,NF) 

GO  TO  180 
160  CONTINUE 

CALL  .ONVEC (I.J.K.AU.ZU) 

IF  (K.EO.NM) AUaAU*R ( J) *R  ( J) 

IF  (K.EO.NW) ZU«ZU*R ( J) *R( J) 

ANUM«CE*C(2)*A(I. , • J.K) »CK*C (*)*A(I“l»JiK) *CN*C (3) *A ( I t J*1»K) *CS*C 
* (5) *A( I . JM .K) *AU. SOURCE 
AONHa(CE«CM*CN«CS) *C ( 1 ) .ZU«ZO 
IF  (K.EU.N8)A0NM>A0NM-ZWMU 
C  CHANGE  SCH 

IF  UONM.EQ.O..OR.ANUM.EO.O.)GO  TO  180 
ZaA(I.J.K) 

A ( I . J. K) aANUM/AONM 

IF  (K. E0.NMF2.AN0.AU, J.K)  .LT.O.)  A(I,J,K)aO, 

IF(  (K.EO.NMF5.0R.K.EO.NMF6) .ANO.A(I,J,K) .LT.O.)  A(I,J,K)aO. 

IF (K.EO. NNFl.ANO.AU, J.K) .LT.EMLIM)  A( I . J.K) afMLlM 
IF(K. EO.NMF2.AN0.AU, J.K) .GT.EMLIM)  A ( I » J.K) aEMLlM 
170  CONTINUE 

OIFaA(I,J,K)-Z 
A(I,J,K)»Z.RP(K)»OIF 
C»»»  ADOEO  AB 

ABa0.25a(A(I.l,J,K).A(I-l.J»K).A(I,J.lyK)»A(I,J«l,K)) 

C***  BYPASS  OIVIOE  “Y  ZERO 

IF  (A(I,J,K).EO.O.OR.AB.EO.O.)GO  TO  180 
MS aU IF/ A  ( I  ,  J  ,K) 

C  CHANGE  SCH 
RSMaOIF/AB 
RS2«1 ,£30 

IF (PHIMN(K) .NE.O.)  HS3anIF/PHlHN(K) 

IF  (ABS(RSM) .LT.ABS(RS) )HS»RSM 
IF (APS (MS?) .LT.ABSIHS/OC) )  RS«RS2 
IF  (ABS(RS) .GT.ABS (HSOU (K) ) )  IRS(K) ■! 

IF  (ABS(RS) .GT.ABS(RSOUIK) ) )  JRS(K)«J 
IF  (AB:(RS) .GT. ABSIRSOU(K) ) IRSOU(K) aRS 
IF  <ABS(OIF>.GT.ABS(OIFMAX(K) J )0IFMaX(K)»DIF 
AABSaABS (A(I.J.K) ) 

PHI MAX*AMAX1 (PHI  MAX, AABS) 

180  CONTINUE 
S  CONTINUE 

PHlMN(K) aPHIMAX 

RETURN 

ENO 

•OECK  CF 

SUBROUTINE  COEFCT  (I. J.K) 

•call  cmd 
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C  ^COEFFICIENT##  (FOR  OIFFUSION  TERMS)  SUBROUTINE 
C»Ht**tMU«t*<M«ttlUHNtHttMtt*MHHtHMtW(MtNHMMUMI 
C«»«  SUBSCRIPTS  l«2t3«4«s  REFER  TO  POINTS  PtE.NtKtS  RESPECTIVELY 
OIMENSION  8(5) 

DO  10  L*1  *5 
10  C(L) *1.0 

IF  (K.NE.NK)  60  TO  20 
C**»*»  FOR  VORTICITY 
B(1)»«(J)**3 
B  ( 2)  >U  ( 1 ) 

B(3)bR(J»1)**3 

B(4)«BO) 

B(5) »R( J-l )**3 
C ( 1 ) »ZMU ( I t J) 

C(2)«ZMU(I*ltJ) 

C ( 3) »ZMU ( I t  J*1 ) 

C(4)«ZMU(I-ltJ) 

C(S)»ZMU(ItJ-l) 

60  TO  SO 

20  IF  (K.NE.NF)60  TO  30 
€*••••  FOR  stream  function 
B(l)al./(R(J)*RO(I'J)) 

B(2)«1./(R(J)*R0(I»1«J>) 

B(3)»B.O/((R(J)«R(J*l))»(RO(I*J)*RO(I*J*I)))-B(I) 

B(A)»1./(R(J)»R0(I-1«J>) 

B (S) «B.O/ ( <R ( J) *R ' J-l ) ) • (RO ( I  * J) «R0 ( It J*I > ) ) "B ( I ) 

60  10  SO 

30  IF  (K.NE.NVT)60  TO  «0 

c***»»  For  skirl  velocity 

B(  1 ) »ZMU (ItJ)*R(J) **3 
B(2)»ZMU(I*ltJ)»R(J)«»3 
B ( 3) sZMU ( I t J* 1 ) *R ( J* 1 )**3 
B(A)»ZMU(I-ltJ)*R(J)*#3 
B(5)»ZMU(ItJ-I)*R(J-l)*»3 
C ( 1) «1 •/ (R ( J) *N ( J) ) 

C(2)»C’(1) 

C(3)»I./(R(J*1)*R(J*1)I 
C(4) «C  (1) 

IF  (P ( J«1 ).GT.0.0)C(5)»1 . / (R ( J-l ) *R( J-I ) ) 

IF  (R(J-'.).EO.O.O)C(S)-0.0 
60  TO  SO 

C«*»«*  for  hikture  fraction  ano  entmalpy 

40  B(1)»ZMU(I»J)*R(J)/PR(K) 

B  (2)  «Zt(U  ( 1*1 1  J)  #R(  J)/PR(K) 

B(3)>ZMU(ItJ«I)*R(J*l)/PR(K) 

0(4)»ZMU(I-1  tJi*R(J)/PR(K) 

B(5) «ZMU (I t J-l) «R( J”1 ) /PR(K) 

50  CONTINUE 

C*»»*»  FOR  ALL  OEPENOENT  VARIABLES 

CE* (B (2)  «B(1))/((X1(I'>1)  »X1  ( I ) )  •2.*>0ELX1  ( I ) ) 

CK* (B ( 1 ) *B  (4) >/( (Xl(I)-Xl(I-l))*2.*DElXI(I)> 

CN"(B(3) *B(1 ) )/( (X2( J*l) — X2 ( J ) )*2t *0CLX2( J) > 

CS»(B(1)*B(5) )/( (X2(J)-X2(J-I))«2.*0ELX2(J)) 

RETURN 

END 

•OECK  CV 

SUBROUTINE  CONVEC (ItJtKtAUtZU) 

•CALL  CMO 

C  ##C0NVECTI0N##  -  TERM  SUBROUTINE 
C  TANK-ANO-TUBE  FORMULATION  OF  THE  CONVECTION  TERMS 

£••••••••••••••••»•••••••••••••••••«•••••••••••••••••••••••••••••••« 

AU»0, 

ZU"0. 

IF  (K.E0.NF)60  TO  120 
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OX  1 «:»:./  f* ,  *BF.Cxr<1V*oeGT2  {  JTl 

6N1E«DX12* ( A ( I « J* t .NF)-A(I,J-1»NF) ♦  A  <  I M  »  Jd  »NF) -A  ( I* I  ♦  J-l  #NF) ) 
GMl»«OXl2*(A(I.J»l.NF)-A(I.J-l.NF)^A(I-l»Jd.NFJ-A<I-l.J-l.NF9) 
GM2S«-0Xl2»(A(I»l*J.NF)-A(I-l.J.NF)*A(I*l.J-l*NF)-A(I-l,J-i.NF)) 
GM2Na-0X12»(A<W.J.N»-)-A<I-I.J.NF)*A<I*l.Jd»NF)-A<I«l.J*I»NF)) 

C 

IF  <GMlH«iOt30t20 
10  ZUa-GMIM 
GO  TO  30 

20  AUaGHItf*A(I-ItJ*K) 

IF  (K.E0.NU.AND.<I.t0.IL.AN0<<J.6E.J6.0R.U.LE.JAl.AN0.J.6E«JA>>>> 

♦GO  TO  130 

30  IF  (6M2S)40*60.50 
40  ZU«ZU-GM2S 
GO  TO  60 

50  AU«AU*GM2S*A ( I  *  J-I *K) 

IF  (K.EO.NW.ANO. J.EO. ( JXIM ) »  ANO. I.LE. IAB) GO  TO  140 
60  IF  (GMIE)70.90t60 
70  AUaAU«GMlE*A(IM«J'K) 

IF  (K.EO.NW.ANO.  (I. EQ.IH.ANO.J.6E.JCnGO  TO  ISO 
GO  TO  90 
80  ZU»ZU»GKIE 
90  IF  <GM2N)lOOtUO»I10 
100  AU« AU”GM2N* A ( I • J* 1  *  K 1 

IF  (K.EO.NW.ANO. ( J.EO. JNM.OR. J.EO. ( JB-I ) .OR* J.EO. ( JA-1) .OR. J.EO, < J 
♦Ol) )  )  GO  TO  160 
RETURN 

110  ZUaZU*GM2N 
120  RETURN 

c 

130  IF  <J.NE.JNM)ZUaZU-GMlM*ZM/CW 

IF  < J.EO. JNM) ZUaZU-GMlW*ZWHALF/C« 

GO  TO  30 

140  IF  ( (JB-JA1) .GT.2) ZU-ZU-GM2S*ZM/CS 

IF  ( ( JB-J41I .E0.2) ZUaZU-GM2S*Z«HALF/CS 
GO  TO  60 

ISO  IF  ( J.NE. JNN) ZUaZU*GMlE*ZU/CE 

IF  ( J.EO. JNMI ZUaZU*GMlE*ZWHALF/CE 
GO  TO  90 

160  IF  (J.EO.JNN)GO  TO  170 

IF  ( J.EO.  ( JC-H.  OR.  J.EO.  <  JA-1 1)  GO  TO  170 
IF  <J.EQ. (JB"1) .ANO. ( ( J9-JA1) .GE.2) )GO  TO  170 
RETURN 

170  ZUaZU^GN2N*ZU/CN 
RETURN 
END 

•OECK  SC 

SUBROUTINE  SORCCK ( I • J  «  K , SOURCE , ZQ . E  ML IM> 

•CAU  CNO 

DIMENSION  OZ (21.21.8)  OB/09/71 

EQUIVALENCE  (OZ.Z1)  00/09/71 

C...KVB... ABOVE  OATA  SPECIALIZED  TO  CH4  00/09/71 

<:•••••••••••••••••••••••••••••••••••••••••«•••••••••»••»•••••»»»»»»»»••» 

C  MSOURCEM  -  TERMS  SUBROUTINE 
C  SOt ncE  TERMS  IN  FINITE  DIFFERENCE  FORM 

C...KVR...  07/26/71 

IF (NOXSOL)  GO  TO  100  07/26/71 

Ca«aKVB»a*  07/26/71 

IF  (K.EO.NW)  GO  TO  10 
IF  (K.EO.NF)  GO  TO  20 
IF  (K.EQ.NVT9  60  TO  40 
GO  TO  30 

C««aa«  FOR  VORTICITT 
10  SOURCEaO. 

OENal6,0*OELXl(I)*DELX2(J)/(R(J)**2) 
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si  «kOii;j;ir*fionvj» 

Sl*Sl*(VS2(I*l»J)-V$2<I-l.J)*VS2<IMtJ*l>-V$2(I-l«J»l)) 
S2*kO(I.J-l) ♦RO(I.J) 

S2=S2»(VS2(I-I.J)-VS2<I*I.J)‘ ‘S2<I-I.J-l)-VS2<I*l.J-ln 
S3*R0(I*1 • j| ♦RO ( 1 • J) 

S3»s3»(vs2«itj-n-vs2ci.j»n*vs2.i*uj-n-ws2(i*i,j*in 

S**R0(I-1,J)»R0(I*J> 

S4*6**(VS2<I«J*l>-VS2<I,J-n*VS2<I-I*J*l>-VS2ll-l,J-l)) 
SOUHCE*SOUHCE*  <S1 *S2*S3*SA) /DEN 

IF  ( 1NDE (NVT ) .£Q.  1 ) SOURcE*SOURCE* (RO< 1*1 t J) • ( A ( 1*1 • JtNVT)**2)»RO( 1 
♦'ltJl*(ACI-l»J*NVT)**2)}/( (Xl(I«l)>Xi(I-l>)*R(J>) 

zo*o. 

RETURN 


C*****  FOR  STREAM  FUNCTION 
20  SOURCE* A (I«J,NW)*R(J) 

ZQ»0. 

RETURN 

C*****  FOR  MIXTURE  FRACTION  ANO  ENTHALPY 


30  SOUkCEsO. 

1F( (K.EQ.NMF1. OR. K.EO.NMF3). ANO. NITER. GE.NEV)  SOUHCE*FEVAP (1 » J) 

♦  *M(J) 

IF (K.EO.NHS. ANO. NITER. GE.NEV)S0URCE*R(J)*(>IS6*HS|»FEVAP(I«J) 
ZQ«0. 

IF (HC.EQ.O.)  RETURN 
EMCHXxA ( 1 . J.NMFI ) 

EMC02*A ( 1 • J.NMF2) 

F  *A ( I , J.NMF3) 

F02»Z02*X02*(1.-F) 

IF(K.EU.NMFI)  EMLIM*F-F02/X02* Y02/X02*EMC02 
IF (K.E0.NMF2I  EML1M«(F02-X02*<F-EMCHX) )/Y02 
EM«20sXH20* (F-EMCHX) 

EM02»F02-X02* (F-EMCHX1 -Y02*EMC02 
IF (EM02.LT .0. ) EM02*0 . 

EMCU* ( XC0«XU2*VC0/V02J • (F-EMCHXI - YC0/Y02* (F02-EM02) 

A ( 1 »  J t  NMFS) *EM02 
A(l,J,NMF6)*EMC0 
C*«*KVR*** 

IF  (EMM20  .LT.O.)  EMH20.0. 

IF (EMU2.LT .0.1  EM02=0. 

1F<EMC0.LT. 0.»  EMCO*0 . 

IFl (NITER. LT.N1L0) .OR. (N1TEH.GI.NIHD)  GO  TO  101 

1F(I.GE.1LO.ANO.I.LE-1H:.ANO.J.GE.JLO.ANO.J.LE.JMI)  EMM20*AM20*F 
1FI1.GE.1L0.AN0.I.LE. 1HI. AND. J.GE. JLO. ANO. J.LE . JHI )  TCIiJ)*TIGN 
101  CONTINUE 

IF (A, EG.NmFI 1 ZU*3.54E15*H0 ( I tJ) •*2*EXP  <-51629/7 ( I* J) ) 

♦  *SuRT(EM0?«EMM20) 

IF(K.EO.NMF2)SUURCE**I.88E10*RO( I . J) **2*EXP (-22647/T ( 1 » J) > 

♦  *SURT(EM0?*EMH20» 

Ci. . KVB . . . 

DNMF1»F-EMCHX 

IF (K.E0.NMF2. AN0.0NMF1 .1 T • 1 .E-051  SOURCE*0. 

IF  (K.  EO. NMF2.AN0.EM02.LT.. 001)  SOURCES. 

IFIn.fq.nmF2)  ZO»S0URCE»YC0 
IF (K.E0.NMF2)  S0URCE»S0URCE»XC0*«F-EMCHX) 

SOUHCE»SOURCE*R(J) 

ZQ-ZQ*P(J) 

C***KV6*** 

RETURN 

£•••••  for  swirl  velocity 

40  ZO*U. 

SOURCE *0,0 
return 
C...KV8... 

100  CONTINUE 

RHOsRQ ( I , J) 

CTNO*A(I,J,NMFS)*RHO/30.008 


08/09/71 

08/09/71 

08/09/71 


08/09/71 


08/09/7) 


08/09/71 

08/09/71 


08/09/71 

08/09/71 

08/09/71 


07/26/71 

07/26/71 

08/09/71 

08/09/71 
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C  TN02«A  (I, J,NHF6)»RHO/46.ff08 
IF ( CTN0.lT . 0 .) CTN0«0 . 

IF (CTn02.lT .0. )  CTN02xO. 

IF (K.EQ.NMFb)  GO  TO  200 
IFiK.E0.NHF6)  GO  TO  300 
*R1TE(6,1000) 

1000  FORMAT (45H0S0RCCK  CALLED  FOR  NO*  *1TH  8*0  VALUE  OF  K  ) 

STOP 

C...KV8... SOURCE  TERM  FOR  (NO) 

200  CONTINUE 

0N0M«Z3(I,J)«Z1 (I,J)*CTNO 

SOUMCE*R< J)*30.008* (Z6 ( I  * J) *Z7 ( I  * J) *CTN02*Z2 ( 1 » J) /OMOM) 

ZQ*H( J)*RHO» ((Z5(I,J)*Z4( I  * J) /DNOM)„CTNO*Z8 ( I  * J) ) 

RETURN 

C...KV8... SOURCE  TERM  FOR  <N02> 

.,00  CONTINUE 

SOUHCEsR ( J) *46.008*Z8( I, J) *CTNO 
ZO«H ( J)*RHO*Z7 ( I  * J) 

PE TURN 

C***KV8*#* 


END 

FUNCTION  VS2(1«J> 

C*#*  THIS  SUBROUTINE  UNCHANGED 

COMMON  /CVPCCC/  A(2i,21.12>  .<11  (21 .21  >  ,G2  (21 .21  >  ,RO(21  *21)  * 
♦  ZMU(2I.21) ,T(<!i'21)«PF  (21,21) 

VS2« (G1 ( I . J) *G1 (I*J),G2(I»J)*G2(,,J))/(R0( I  * J) *RO( I  * J) ) 

RETURN 

ENO 

•DECK  NX 

OVERLAY  (NOX.3.C! 

PROGRAM  NOXCON 


•CALL  CMU 

OIMENS.ON  40(21,21,18) 

EQUIVALENCE  (AO, A) 

INTEGER  BSYMHl (8) 

OIMENSION  CT ( 13 > 

EQUIVALENCE (CT.CTCHX) 

OIMENSION  EM ( 1 J ) 

EQUIVALENCE (EM, EMCHX ) 

OIMENSION  FKF (8) , FKB ( 8) ,FKEQ(11) 

EQUIVALENCE (FKEQ (9) ,FK 15) • (FKEQ ( 1 0 ) FK16) • (FKEQ ( 1 1 ) .FK17) 
OIMENSION  QZ (21,21,8) 

EQUIVALENCE  (QZ.Zl) 

DIMENSION  A J (8 ) ,ENJ (8 ) ,8 J (8) 

OIMENSION  TEMPKP (5) tFLOGKP (S, 11 ) 

LOGICAL  PASS2 

DATA  1BLK/6H  / 

DATA  AJ.ENJ.BJ 

•/3.1E13,6.*3E9,*.22E13.1.01E13.3.6E13,*.82E13,1.02E15,1,0E13, 

•  0.  t  *1.  ,  0.  ,  0.  ,  0,  ,  0,  ,  o.  ,  0,  , 

•  .33*  .  6.25  ,  0.  ,  5.438  ,12.084,12,08*  ,  -1.870,  .6  / 

DATA  AJ(7> , B J ( * ) ,B J (5) ,RJ(6)/1.05E15,10.8,24,,24./ 

DATA  AJ (4) ,AJ(5) .AJI6) ,BJ(4) ,BJ(5) ,BJ(6)/ 
•2.95E13,3.82E13,4.S8E13,10.77,24.1,Z4.1/ 

D'TA  TEMPKP/1800., 2700. ,3600., *500,, 5400./ 

DA. A  FLOGKP/ 

•  15.784,10.309,7.567,5.921,5.823, 

•  7.660,0.336  ,4.170,3.467,2.996, 

«  1 7 .022,8.879,3.977,4.471 ,3.548, 

•  15.569,10.877,8.480,7.015,6.042, 

•  17.977,12.096,9.121,7.316,6.123, 

•  9.853,  7.123,5.723,4.863,4.277, 

•  13.782,  8.533,5.939,4,402,3.389, 

•  10.744,  7.347,5,631,4,595,3.900, 


•  2.687,  1,110,0.320,-0.128,-0.413, 

•  2.408,  1.219,0.641,0,301,0.081, 


08/09/71 


07/26/71 

07/26/71 

07/26/71 

07/26/71 

07/26/71 

07/26/71 

07/26/71 

09/10/71 

09/10/71 

09/10/71 

07/26/71 

07/26/71 

07/26/71 

08/09/71 

09/10/71 

07/26/71 

07/26/71 


09/10/71 


08/13/71 
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»  Z.7*9,T75Wn)'.^W7f.T®7iO.?6T7 

OATA  BSVMBL/6HHEAC  1.6HREAC  7.6HREAC  3.6HREAC  4.6HHEAC  5. 

♦  6HHEAC  6.6HREAC  7.6MHEAC  8/ 

C...KVB... ABOVE  DATA  SPECIALIZED  FOR  CM4  . . 

C. • .KV8. • • 

PASS2*. FALSE. 

CLOGaALOGlO ( .0160185) 

00  5  K«1.R 

AJ(K)sAJ(k)*0. 0160185* (9./5.)**ENJ(K) 

IF (K.E0.7)  AJ(K)oAJtK)*. 0160185 
BJIMaBJ(K)/. 001104 
5  CONTINUE 

DO  IP  K«1.5 

TFMPKP (K) al ,/TEMPkP  <K) 

FLObKP (K.7) aFLOGKP (K.7)  ♦  CLOG 
10  CONTINUE 
GO  TO  20 
• . «KV8. . . 

...KVH.. .ENTRY  PRATES#  IS  USEO  FOR  POST  MORTEM  ANALYSIS 

entry  rates 
pass?*. true. 

20  CONTINUE 

IMIi»a(  IA8.IO/2 
JMIOajN/? 

IF ( 1NOG.EO. 1 ) AREA«X2 ( JN) -X2 ( 1 ) 

IF  I INDG.EO.2) AREA«X2 « JN)**2-X2 ( 1 ) **2 
VL-B“A ( 1 . 1 «NF) / (RO ! IMIO. JMI0) * ARE A) 

RNU«.03*EXPl 1 ./4SOO. ) /EXP ( 1 ./T ( IMIU. JMI0) ) 

PRINT  25. IMIO. JMI0. R0( IMIO. JMIOT.Tl IMIO. JMIO) * VEL. AREA.RNO 

25  FORMAT!#  IMIO.JMIO.ro. r.VEL«AHEA.RNO#/l»«2I3.5G10. 3) 

DO  100  Ja  1 . JN 

IUP«IMAX(J)-1 
ILOWalMIN  t J) ♦ 1 
00  10P  I>ILOW.IUP 

IF1I.6E.IS1.AN0.I.LE.IS.AN0.J.GE.JS1.AND.J.LE.JS)  GO  TO  too 
TIME* (XI  (I)-Xl  (IABM/VEL 
A ( I  * J.NMF5) *1E“6 
AtI,J,NMF6)«A (I.J,NMF5)/100. 

IF ( J.EQ. JMlO)  PRINT  26.I,TIMr.A(I,J.NMF5) 

26  FORMAT!#  I.TIME.(NO)#/lX.I3.2G10.J) 

TT-T II.J) 

RT-l./TT 

CALL  LININT (TEMPKP.FLOGKPd .1 ) ,RT .FLOG. 5) 

FKEUd  ) *10 •••FLOG 
00  30  K-2,11 

CALL  MOREYS  I TEMFKP • FLOGKP ( 1 • K ) . RT • FLOG . 5) 

FKEU (K ) ■10.**FL0G 
30  CONTINUE 

00  40  Kal.8 

FKF  (K)«AJ(K)*TT«*(-ENJ(K)  )*EXP(-BJ(lO/TT) 

FKU (K) >FKF (K) /FKEO(K) 

40  CONTINUE 


09/10/71 

09/10/71 

09/10/71 

09/10/71 

09/10/71 

09/10/71 

09/10/71 

09/10/71 


09/10/71 

09/10/71 

09/10/71 


4 


■‘i 


■ '! 


■  £« 


V 


C...KVB.  • .  EMX  *  MASS  FRA  CTION  OF  X 
C...KV8...  CTX  >  CONCENTRATION  OF  X  LB  MOLE  /  FT3 
EMCHXaA ( I , J.NMF1 ) 

EMC02aA ( I . J.NMF2) 

F  «A ( 1 . J.NMF3) 

F02»Z02*X02*(1.-F) 

EMNO  aAd.J.NMFS) 

EMN02aA ( I . J.NMF6) 

C. . «KVB. . . 

EMH20aXH20* 1F-EMCHX) 
EM02aF02-X02*<F-EMCHX)-Y02*EMC02 

EMCO«  <XC0*X02*YC0/Y02 » •  (F-EMCHX) -YC0/Y0?*  «F  02-EM02) 
EMN2  aXN2*ll.“F) 


4 


. 


1 

’*> 

| 


! 
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Ci* »KV8 •  •  • 

DO  *5 

IMEN(L)  .LT.O.)  EMtU*0. 

♦5  CONTINUE 

HHO*fiO ( 1 «  J) 

CTCHX*EMCHX»RH0/ZMM ( 1 ) 
CTCu2*£mCO2*«HO/*4.01o 
CTH2O»EMH2O*RhO/18.016 
CT02  *EN02  *RHO/32.000 
CTCO  »EhCO  •RHO/28.010 
CTNO  «EMNO  •HHO/30.008 
CTN02*EMN02*HHOM6.006 
CTN2  »EMN2  •HH0/28.016 
C  •  « <KVB •  •  • 

CTH  »Pfi£F/ ( 15*5*#T < 1 « J) )  *  <1.*PF(I.J>) 
1F(CTC02.LT.1. £-30)00  TO  SO 
CTO  *FK1S/FK16  *  CTCO  »CT02  /  CTC02 
CTOH*S0RT (CTH20*CT0/FK17) 
CTH*FK1S«CTC0»CT0H/CTC02 
GO  TO  S5 
50  CONTINUE 

CTO«0. 

CTH*0. 

CTOH*0 . 

SS  CONTINUE 

CTN20«0. 

CTN=0. 

00  60  L*1.13 

1F(CT(L).L£.0.)  CT (L) *1 .E-30 
60  CONTINUE 

IF (PASS2) GO  TO  70 
C« • *KVH« • ■ 

GG1*FK8 (1 ) *CTN2*CTO 

GG2*FK8 (?) *CTO*FKB (3) *CTM 

G3»KKF (2) *CT02  ♦  FKF (3 ) *CT0H 

G*»FKHU)*CTN2*CTOH  ♦  FKB  (5)  •CTN2»CT0'I 

G5»FKF  (♦)  *CTM  ♦  l'KF(S)»CTO 

G6*FKF (6) *CTO 

G7*FK8 (7 ) *CTH  ♦  FKF(8)»CT0 
G8»FKF(7)*CTO»CTH  ♦  FKB(8)»CT02 
C • • *K VH m 

Z1 (I.J)«FKF(ll 
Z2(I,J)=GGI*GJ«2. 

Z3 ( 1 i J) *03 

Z4  ( I  •  J)  *FKF  ( 1 ) *GG2#2 j 
ZS(1.J)«GS/(GS*G6)  •  FKB (6)  •  2. 
Z6(1.J)»G4*G6/(G5*G6)  •?. 

Z7 ( 1 « J) »G7 
ZB(I.J)«G« 


C • «  #K VB m 

GO  TO  100 
70  CONTINUE 


CTN?0« (FKB  U) «CTN?*CTOH«FKB (5) *CTN?*CT02*FKB (6) *CTNO»CTNO) 

*  /(FKF(4)*CTH*FKF(S)«CT0»FKF(6)«CT0) 
CTN*(FKud)»CTN2»CTO*FKB(2)*CTNO«CTO»FK8(3)»CTNO*CTH) 

•  / (FKF ( ) ) *CTNO*FKF (2) «CT02*FK? (3) «CTOH) 


Z1 ( It J) *FKF ( 1 ) »CTN«CTN0 
Z2( I  * J) »FKF (2) •CTN*CT02  - 
Z3(l.J)«FKF(3)*CTN»CTOH  - 
Z4 ( I  * J) «FKF (♦) *CTH*CTN20  - 
Z5(1.J)»FKF(5)«CT0*CTN20  - 
Z6 ( I • J) «FKF (6) *CT0*CTN20  - 
Z7 ( 1 • J) »FKF (7) •CTN*CTN0»CT0 
Z8 ( I « J) «FKF (8) *CTN02*CT0  - 


FKB(I)«CTN2«CT0 
FKB(Z) *CTN0#CT0 
FKB(3) *CTN0*CTH 
FK8(*)*CTN?*CT0H 
FK8(5)*CTN2*CT02 
FK8 (6) •CTNC*CTNO 
-»  FK«(7>*CTM»CTN02 
FKB(8)*CTn0*CT02 


00  90  K*1 *  8 

AO ( I • JiK) »QZ ( I • J • K ) 


09/io/n 


08/13/71 

08/13/71 


08/13/71 

08/13/71 
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3 

,J£ 


TO  CONTINUE 

ie*b 

uo  no  k*i.b 

IVAR(K)*K 
IN0D(K,1)  *99 
VJE(K,i)*0. 
asyhblik) sBsyhol ik) 

ANAME(1«K)*BSYMBL!K) 

00  109  KK*2,6 
ANAME (KK«K) *IBLK 

109  CONTINUE 

110  CONTINUE 
CALL  PRINC1 
NVAH*8 

C  CALL  PLOTRR 
100  CONTINUE 
End 

•DECK  LI 

SUBROUTINE  LININT(XT.YT.A.Y.N) 

C...KV0...SUB  FOR  LINEAR  INTERPOLATION 
C...KVB... ASSUMES  XT  IS  HONaTONIC 
DIM!  *5 1  ON  XTCl)tYT(l) 

IF (XT ( 1) ,LT«XT (?) )  00  T09 
00  5  1*1, N 

IF  (X.GT.XTU)  )  60  TO  ?0 
5  CONT INUE 

GO  TO  11 

9  CONTINUE 

00  10  1*1, N 

IF ( X«lT«XT ( I ) )  GO  TO  ?0 

10  CONTINUE 

C««  «KVB« « ,FALL  THRU  INOICATES  X  OFF  TABLE  ON  HIGH  I  END 
C...KVB.cUSE  LAST  VALUE  IN  TABLE  RATHER  THAN  EXTRAPOLATE 

11  I=N*1 
XFACbO 
GO  TO  30 

20  IF ( I.EO.l) 1*2 

C...KVB...  EXTRAPOLATE  OFF  LOW  END  OF  TABLE 

XFAC* (X-XTCI-1 ))/ «XT (I)-ATt 1-1)1 
30  CONTINUE 

C...KVB...  CDC  VERSION  NEXT  CARO 
ENTHY  MOREYS 

Y*(YT(I)-YT(I-1))«XFAC  ♦  YT(I-l) 

C...KVB.. .ENTRY  POINT  PERMITS  MORE  DEPENDENT  VARIABLES  FROM 
C...KVB...SAHE  INDEPENDENT  VARIABLE  TABLE 
RETURN 

C...KVB...COHE  HERE  IF  X  OFF  TABLE  ON  LOW  I  ENO 
C...KVB...USE  FIRST  VALUE  IN  TABLE  RATHER  THAN  EXTRAPOLATE 
END 

•DECK  OU 

OVERLAY  ( OUT , A , 0 ) 

PROGRAM  OUTPUT 
•CALL  CMD 

IF ( 10L0.LT .0)  GO  TO  100 
CALL  PRINC1 
CALL  TABUC1 
100  CONTINUE 
CALL  PL0TC1 

IF (NVP.EO.O)  GO  TO  181 
DO  180  11*1, NVP 

1B0  CALL  VELPLT  UOP(II),IJGP<n>tIVP<!I)) 

181  CONTINUE 
C, , • KVB • , , 

XNO*C. 

XN02*0, 

EFF*0. 


1 


4 


n 


* 


09/10/71 

09/10/71 


.9 


» 


* 

* 

} 

j 


07/26/71 


07/26/71 

07/26/71 

OB/13/71 

OB/13/71 
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) 


t 


► 


jspi.js.T 

IF(IS.LT.IN)  JSP1*2 
JM1N.JSP1-1 
00  500  JsjSPl • JL 
JJ.J-1 

AMOLW.RD ( IN. J) *GCPM«T ( IN.  J) /PREF 
FLO«(A(lN.JJ.Nf )-A(IN.J,NF) )/(A(IN.JMlN»NF>.2.) 

EFF*EFF  ♦  FLO 

.  *  ( A  ( IN, JJ.NEFF ) ♦ A ( IN, J, NEFF ) ) 

XND«XNO  ♦  FLO 

•  * ( A ( IN. J J.NMFS) ♦ A ( IN. J.NHF5) ) /30  «008*AMOLW 
XN02.XN02  *  FLO 

•  7 ( A ( IN, JJ.NHF6)  ♦  A ( IN* J.NMF6) ) /46«  OOB*AMOLW 
C***KVB»** 

500  CONTINUE 
C, • «KV8. • • 

XN0»XN0*1 ,E6 
XN02.XN02M.E6 
XSUM.XNO*  XN02 

WRITE (6.1010 JEFF.XN0.XN02.XSUM 
1010  F0HMAT(5(/).1X.18HEX1T  EFFICIENCY.  ,E1 1 .3/ 

«  1X.I8MEXIT  (NO)  PPM  ■  .Ell. 3/ 

•  1X.18HEX1T  (N02)  PPM  «  .Eli. 3/ 

•  1X.18HEX1T  (NOX)  PPM  «  .Ell. 3) 

C...KVB...CALL  RATES  HERE 

C...KVB*** 

C 

ENO 

•DECK  PL 

SUUHOUTlNE  PL0TC1 
•CALL  CMD 

DIMENSION  AO (21 .21 • 18) 

01 ME NS I ON  X1120) »XA(9> ,VJ(9> .0(11) . V (41 > 

EQUIVALENCE  ( A ( 1 •  1  •  1 ) , AO ( 1 , 1 , 1 ) ) 

DATA  XEMTY/1H  /, X80UN/1H./ . (XA (L> .L*l . 9) /INI « 1  M2. 1M3, 1H4, 1M5. 1M6. 
.1H7.1H8.1H9/ 


C  ^PLOTTING**  SUHH0UT1NE 

C  T-:«  SUBR.  GIVES  APPROX.  CONTOUR-PLOTS  OF  THE  DEPENDENT  VAR. 

C  ALSO  OF  TEMPERATURE 

C**.*. •••••••••••••••••••••••••**••••*•••••••••**•••**•*••••*•*•••••' 

c 

C***;  1 NT VAL. NUMBER  OF  LINE-SPACING  BETWEEN  TWO  J-LlNES 

€••••  NVJ.NUMRER  OF  CONTOUR-LINES  TO  be  PLOTTED  FOR  EACH  VARIABLE 

c 

L6>NUMA«6 

L7.NUMA.7 

L8.NUMA.f5 

IF  (l.GT.JN)GO  TO  5 
00  10  J«1,JN 
00  10  LI. IN 
A(I,J.NW)«A(1.J,NW)»R(J) 

IF  (lNOE(NVT) .EO.I.ANO.R(J) .GT.O.O) A( 1 , J.NVT) >A( I , J.NVT) /R ( V) 
10  CONTINUE 

c...kvh...aooeo  entry  for  plotting  reaction  rates 

ENTRY  PLOTRR 
C...KV0.** 

5  CONIINUE 
JX«1 

IF( (JN*INTVAL-3) .GT.44)  JX«2 
1X«' 

IF ( ( lN*10-9) «GT. 101 )  IX. 2 
NVJS.NVJ 

IF  (l.GT.NVAR)  GO  TO  15 
00  340  KK.l.NVAR 
K.IVAR(KK) 


08/13/71 

08/13/71 

08/13/71 

08/13/71 

08/13/71 

C7/26/71 

07/28/71 


08/13/71 

08/13/71 

07/26/71 

08/13/71 

08/13/71 

08/13/71 

08/13/71 

07/26/71 


08/09/71 

08/09/71 

08/09/71 
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iruNouitfnTir.E'i'im  go  to  ao 

C»*»»  FINDING  MAX  «  t  min.  AND  MEAN  VALUES  IN  TME  FIELO  AND 
C****  HENCE  DETERMINING  TME  INTERVALS 
VMlNsl.EOO 
VMAa*-1E*30 
nvj*r 
SUMsO- 
NSUMsG 

IF  il.r.T.Jf-JGO  TO  25 
00  -:0  J*1,JN,JA 
II1*IMIN(J) 

1 12*  1MAX  ( J) 

00  2D  I*(I).II2.IX 

IF  (AQ(I«J«K)  .GT.VMAX)  VMAX*A0  ( I « J.K) 

IF(*0(I.J.K) .LT.VMIN)  VMINsAO(I.J.K) 

SUM=SUM*A (I  * J « I . ) 

20  NSUHsnSUM«1 
25  CONTINUE 

VMEANsSUM/FLOAT (NSUM) 

VSTEP1* ( VMEAN-VMIN) /*. 

VSTEP2*  C VMAX-VMEAN ) /♦. 

VJ(ll*VMIN«.nS*AUS(VMIN) 

VJ(2)«VMIN*VSTEP1 

VJ ( J) *VJ (?) ♦VSTEPl 

VJ<4)*VJ(3)*VSTEPl 

VJ(b)*VMEAN 

VJ(0)*VMEAN*VSTEP2 

VJ ( 7) *VJ (6) ♦VSTEP2 

VJ(t»)*VJ(7)*VSTEP2 

VJ(V)aVMAX-.05»ABS(VMAX) 

IFIVJIl) .GE.VJI2) )  VJ(l)*(VJ<2J*VMIN>/2. 

IF(VJ(9) .LE.VJ(B) )  VJ(9)*(VMAX*VJ(B) )/2. 

IF (K.EQ.NF)  VJ ( 1 ) *AU ( I AR. JA  «NF ) 

GO  TO  52 
C 

C***  CMANGEO  VJ  TO  HEAO  IN  BLOCK  EITHER  A  GIVEN  NOOE  OR  A  FIXED  VALUE 
C*«*  JNOO. I NOD  IS  GRIO  NOOE  FOR  ISOLINE  CONSTANT 

C**«  VJE  IS  SPECIFIEO  VALUE  FOR  ISOLINE 

C 

30  CONTINUE 

00  40  NIrl.NVJ 

IF (JNOO (K.NI) »EO.O>  GO  TO  32 

IJKxlNOO(K.NI) 

J I K*  JNOO ( K  «  N I ) 

IF  (K.EO.L7.0R.K.E0.L8)  GO  TO  31 
VJ(NI)*AQ(IJK,JIK,K) 

GO  TO  40 

31  IF  (K.EU.L7)  VJ(NI)*G1(IJK,JIK)/R0(IJK,JIK) 

IF  (K.EQ.LB)  VJ(NI)*G2iIJK«JIK) /R0( I JK» JIK) 

GO  TO  40 

32  VJ(NI)*VJE(K.NI) 

40  CONI INUE 

50  CONI INUE 

C  ENO  SPECIAL  VJ  VALUES  C-T  PROBLEM 
C 

PRINT  OUT  CONSTANT  VALUES  TO  BE  PLOTTEO 
52  WRITEI6.350)  ASYMBL(K) 

WRITE  (6.360MVJ<L)  tLaltNVJ) 

WRITE  (6t4I0) 

IF  ( I »GT ».)N) GO  TO  35 
JNCaJN 

IF  ( ( JN.EO.  ( ( JN/2)  *2) > .  AND.  JX.EQ.2l  JK*C«JNC»1 

00  330  JJ«I « JNCj JX 

J*JN*1-JJ 

IF  ( J.LT  *1 )  J*1 

IIUININ(J) 


07/2G/71 


-i 


A 
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IIZ-IMAXUI 

L1>(IMIK(J)/IX-1/IX>*10*1 

L2>(IN«X(J)/IX-1/IXI*10*1 

IB«IX.IMIN(J) 

c***#  boundaries  for  the  problem 

IF  (I.GT.INTVAL)GO  TO  45 
00  J20  JJN»1 • INTVAL 
00  60 

60  XiLiaXEMTV 
X(L1>«XB0UN 
X (L2I aXBOUN 

IF  (J.EQ.JN.ANO.JJN.EO.I)GO  TO  TO 
IF  (J.EO.l.ANO.JJN.EO.I)GO  TO  70 
GO  TO  90 

70  ;F  (LI »GT .12)60  TO  SS 
00  00  L«L1.L2 
00  X (L) aXBOUN 
55  CONTINUE 
GO  TO  160 
90  CONTINUE 
C 

€••••  SPECIAL  BOUNOARIES  FOR  THE  COMBUSTION-CHAMBER  PROBLEM 
C 

IF  (JA.EQ.JAl)GO  TO  100 
IF  (.'.EO.JA.AN  .JJN.EO.  1  > GO  TO  110 
IF  .J.LE.JAl.aNO.J.GT.JAtbO  TO  110 
100  CONTINUE 

Ir  (J.EO.JB.ANU.JJN.EO.DGO  TO  110 
*F  {J.Ej.JC.ANO.JJN.CO. Deo  TO  130 
GO  TO  lb** 

UO  L3>(IAB/IX-1/IX)*10*1 
IF  (1.GT.L3IG0  TO  6S 
00  120  L-1.L3 
120  X1L1 -XBOUN 
65  CONTINUE 

IF  1 (JC.ER.JB. OR. JC.EO.JA. OR. JC.EQ.JA1) .AND. JJN.EO. 1>G0  TO  130 
GO  TO  ISO 

130  IF  (J.NE.JOGO  TO  150 
L3a(IC/IX)*10«l 
IF  (L3.GT.L2IG0  TO  75 
00  140  L«L3tL2 
140  X1L) aXBOUN 
75  CONTINUE 
150  CONTINUE 
160  CONTINUE 

IF  ( J.LE. JA1 . ANO. J.GT. JA) IB»IAB*IX 
C*a**  INTERPOLATION  BETWEEN  TOO  CONSECUTIVE  J-LINES 
JlaJ-JX 

IF1J1.LT. 1)  Jlal 
IF  1III.GT. 112)60  TO  B5 
00  180  Ialll.IIZ 
IF  (J.EO.l)GO  TO  170 

IF (K,LE,(.6)0ELAJa  ( A0( I  •  J1  .K) -AQ(  I.  J.K) ) /FLOAT  1  INTVAL) 

IF (R,E0.L7)0ELAJa(GllI* J1)/R0(I.J1)-G1 (I* J1/R0II.J1 ) /FLOAT (INTVAL) 
IF (K.EO.LA) OELAJa (G2 1 1  * Jl) rROl 1 • Jl) -G2 ( I • J> /RO ( I < J) ) /FLOAT  1 INTVAL) 
GO  TO  1B5 
170  OELAJaO. 

1B5  IF IK.LEt L6) V ( I)»AO(I* J.K) *FLOAT ( JJN-1 ) *OrLAJ 

IF(K.E0.L7)Y(I)«G1(I*J) /RO 1 1 • J ) ♦ FLOAT ( J JN-1 ) *DELAJ 
IF(K.EO.LB) YlI)aG2(I«J)/R0(I*J)*FL0AT(JJN-l)*0ELAJ 
180  CONTINUE 
85  CONTINUE 

(••••  interpolation  between  two  i-lines 

IF  (IB. GT. 112)00  TO  95 
II2CaII2 

IF ( (IN.EO. 1 ( IN/2) *2) > .ANO. IX. EO. 2)  II2C«II2C*I 
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oo  i«r87ii*tvrx 

ii«i-ix 

IF  IIX.EQ.2)60  TO  190 
60  TO  220 

190  0ElY!e<V(I1«l)-Y<Iin/5. 

00  200  IJKal.6 

200  01 I JK)ay 1 1 1 ) .FLOAT 1 1 JK-1) *0ELV1 
OELY2«(Y<n-vm*in/5. 

00  210  IJMT.II 

210  01 1 JK) aYl 1 l^l) ♦FLOAT  1 1 JK-6) #OELY2 
80  TO  240 
220  CONTINUE 

0ELYa|V(I)-Y(II))/I0. 

00  230  I JK» 1 • 1 I 

230  0( I JK) ay ( n ) ♦FLOAT < I JK-) ) aOELY 
240  CONTINUE 

IF  I 1.6T.NVJI 80  TO  105 
00  250  KLal.NVJ 
00  250  iJKal.IO 

IF  ( IX.EQ.3. ANO. I JK.LT .6)0ELYa0ELYl 
IF  (IX.EQ.2.ANO. I JK.G£.OiOELYaOELY2 
NNau 

IF  IVJIKL) .GE.Otl JK) , ANO. VJIKL) .LE . 10(1 JK) #0ELV/?. ) ) NN*I JK 
IF  IVJIKL) .GE. 101 I JK) *OELY/2. ) . ANO. VJIKL) .LE.DI I JK*I ) ) NN«I JK«I 
IF  IVJIKL) .LE.OIIJK) .ANO. VJIKL) .6£. 10(1 JK) ♦OELY/2.) )NN»I JK 
IF  (VJIKL).LE. (0(IJK).0ELV/2.).AN0.VJ(KL).eC.0<I JK4l))NNaIJK4l 
IF  INN.EQ.OISO  TO  250 
Nla|Il/IX»I/IX)*10 
N2»NI.NN 
X IN2) aXAIKL) 

250  CONTINUE 
105  CONTINUE 

C*«aa  PLOTTING  OF  ALL  POINTS  ON  ONE  J-LINC 
200  CONTINUE 
95  CONTINUE 

IF  I JJN.EQ. 1. ANO. I J.NE. JN. ANO. J.NC.l ) ) GO  TO  270 
GO  TO  290 

270  IF  ILI.GT.L2IG0  TO  115 
00  AO  L4aLT.L2.10 
IF  (X (L4) .EQ.XEMTY)  X IL4) aXOOUN 
200  CONTINUE 
1 15  CONTINUE 
290  CONTINUE 

IF  II  (J.EO.JA.ANO.JJN.EO.l.OR.J.GT.JA)  .ANO.J.LE.JAD.OR.KJ.EO.JB. 
♦ANO.JJN.EO.I.OR.J.QT.JB).ANO.J.LE.JN))80  to  300 
IF  IJJN.EO.IIURITE  (6,370)J.IXlIP),IPal,101) 

IF  I JJN.NE. I ) WHITE  (6.3A0) I X  1 1 P ) .1  Pal. 101) 

GO  TO  310 

300  IF  IJJN.EQ.1IWRITE  (6.390) J. IXl IP) .IPal. 101) 

IF  IJJN.NE.IIHHITE  16.400) (X(IP).IPal, 101) 

3)0  IF  I J.EQ.l )GO  TO  330 
320  CONTINUE 
45  CONTINUE 
330  CONTINUE 
•35  CONTINUE 

WRITE  (6.420) (IZ.IZ«I.IN.IX) 

NVJaNVJS 
340  CONTINUE 
15  CONTINUE 

00  345  Ja  1 .  JN 

00  345  lal.IN 

IFIHIJI .E0.0.)  GO  TO  345 

A(I.J.NW)aA(I.J.NW)/R(J) 

IF  I INOEINVT) »EO. I ) A(I.J.NVT)aA(I.J.NVT)#R(J) 

345  CONTINUE 
RETURN 
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C 

3 SO  FORMAT  (25H1 CONST ANT- VALUE  PLOT  OF  .A6//23H  NUMBERS  REFER  TO  THE 
•  .39HC0NST ANT- VALUES  PLOTTEO. VALUES  BEING...*//) 

360  FOrtMAT  (IN  »3Hia  . 1PE12.4.3X.1H. .3H2>  . 1PE12.4.3X, IN, »3H3»  .1PE12. 

,1PE12.*,3X,1H,,3h5«  .1PE12.4/4H  6a  .1PE12.4.3X.1H,. 
•3H7«  • 1PE12.4.3X. 1H. .3H8>  .lPEl2.4,3X,lH,.3M9a  .IPE12.A) 

370  FORMAT  (1h  . I2.10X.10U1) 

380  FORMAT  (lM  . 12X.101A1) 

390  FORMAT  (1H  .I2.4X.6H . .101A1) 

400  FORMAT  <1H  . . tlOUl) 

4J0  FORMAT  (1M0.///J 

420  FORMAT  ( 1H0.//12X.I2.8X.I2.8X.I2.8X. I2.8X.I2.8X.I2.8X.I2.8X.I2.8X. 
*I2.HX.I2.BX.12.8X*/) 

ENO 

•OECK  TA 

SUBROUTINE  TABUC1 
•CXI.L  CMO 

DATA  AB/6H 

C  FFTABUL4TEAA  SUBROUTINE 

C  THIS  SUBR.  TABULATES  THE  COMPLETE  SET  OF  results 

C,#*  AUOEO  TESTS  FOR  TEMPERATURE  ANO  PRESSURE 
LS«NUMA«S 
L6«NUMA.6 
10*  IE 
IIbaB 
I2«AB 
AVI >0.0 
AV2>0.0 
IFfial 

IF  (INDRO.EO.l.ANO.IPRES.EO.l)  GO  TO  1 
IF  ( IN0R0.E0.2.AN0. IPRES.EO. 1 <  GO  TO  2 
IF  ( I NORO.EQ.l .ANO. IPRES.EO. 2)  GO  TO  3 
IF  (INDRO.EO. 2. ANO. IPRES.EO. 2)  GO  TO  14 
GO  TO  1 

2  IUASYMBL  (L5) 

IFG>2 

GO  TO  1 

3  IUASYMBHL6) 

IFG>3 

(>0  TO  1 

14  I1>ASYMBL(L5) 

I2>ASYMBL(L6) 

IFG>4 

1  WRITE  (6.30) (ASYM8L1K) «K>1 • IE) . 11 . 12 
ILlNEaO 

IF  (l.GT.JN)GO  TO  5 
00  20  J.l.JN 
IL>IMIN(J) 

IH»IMAX ( J) 

oo  20  I>1 . In 

C#4* 

IF  (IFG.E0.2.0R.IFG.E0.4)  AV1>T(I.J) 

IF ( IFG.EQ.3)  AVI >PF ( I • J) 

IF ( IFG.EC.4)  AV2»PF ( I . J) 

ILINE-ILINE.1 

IF  (I.LT.IL.OR.I.GT.IH)WRITE  (6.60)1. J 
IF  (I.LT.IL.OR.I.GT.IH)GO  TO  10 
W>A ( I • J.NW ) *R ( J) 

V1»G1 ( I » J) /R0( I  * J) 

V2»G2(I.J) /RO(I.J) 

IF  ( INOE (NVT) «E0. 1) V3»A ( I . J.NVT) 

IF  (I NOE (NVT) .EG. 1 .ANO.R ( J) .GT.O.O) A ( I » J.NVT) >V3/R ( J) 

C«*«  AOOEO  IFG  AVI  AV2  II  12 
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b 


IF  (IFG.e-lTTT 

♦WRITE  (6,40) I,J,V1,V2,R0(I«J> ,ZMU(I.J) ,W- ( *  $  I , J*3) »K«2» IE) 

IF  (IFG.E<J.2,OR.IFG.E0.3) 

♦WRITE  (6,4Q)I«J*V1,V2,R0(I*J>  , ZMU ( I , J)  <W,(A(I»J,K)  ,K*2, IE)  »AV1 
IF  (1FG.EQ.4) 

♦•RITE  (6,40) I , J, VI , V2.RO ( I , J) *ZMU( I, J) ,W. (A ( I , J»K) ,K«2,IE) *AVl*AV2 
IF  (lNOE(NVT).EO. 1)4(1, J.NVT)«V3 
10  CONTINUE 

IF  (1LINE/INMN.EQ.ILINE)WRITE  (6,1,0) 

IF  ( IN.LT ,2I»ANO« ILINE/ (4*IN) .EQ» ILINE) WRITE  (6*30> ( ASYMBL (K) »K«* , 
♦IE), II. 12 

IF  ( IN.EO.21.4Nl).  ILINE/ (2* IN)  *(2* IN)  .EQ.  ILINE)  WR1TE(6*30)  (ASYMBL 
♦(K),K*1,IE),II,I2 
20  CONTINUE 
5  CONTINUE 

C  1VISC  «9(6X«A6) ) 

RETURN 

C 

30  FORMAT (6HI  I  J,6X,2HV1,8X,2HV2,5X,7H0ENSITY,SX,4HVISC«7X« 

•  A6,5X,A6,SX, A6,SX«A6,5X, A6,5X, A6«SX, A6.5X, A6/ 

•  (47X,«(SX,A6)/> ) 

40  FORMAT (1H  .12.1X.12.IX,2F10.3.F9.5.1X,IPE11.3»1PE11.3,1PE1I,3* 

•  1 PE 11«3, 1 PE  11, 3, IPE 11, 3,1 RE  11, 3,1 PE  11, 3,1 PE II, 3/ 

•  (4BX«8( 1PE1 1 .3) /) ) 

SO  FORMAT  ( IH  ) 

60  FORMAT ( IH  , 12, IX, 12) 

ENO 

•OECK  VE 

SUBROUTINE  VELPLT  (IO.IJG.IV) 

•CALL  CMO 

C**»  THIS  IS  A  NEW  SUBROUTINE  TO  PLOT  PROFILES  OF  ANY  VARIABLE 
C««*  ALONG  AN  I  OR  J  GRIO  LINE.  PLOT  CONTROL  IS  CONTAINED  IN 
C«««  COMMON  CVPLOT 

C*««  10  ■  1  FOR  PROFILE  IN  I  OIRECTION  ALONG  J»IJG  GRIO  LINE 

C«««  ■  2  FOR  PROFILE  IN  J  OIRECTION  ALONG  I»IJ0  GRIO  LINE 

C«««  IJG  ■  I  OR  J  GRIO  LINE  TO  BE  PLOTTEO 

C***  IV  ■  VARIABLE  TO  HE  PLOTTED  FROM  AO  ARRAY 

C*'«  NVP  ■  TOTAL  NUMBER  OF  VARIABLES  TO  BE  PLOTTEO 

01 MENS I ON  IAS (Bl) , VAR (2 1 ) 

01 MENS ION  AQ(2I,2<,I8) 

EQUIVALENCE  ( A ( 1 • I • I ) ,AO(l,I,I) ) 

L7«iMUMA*7 

L8*NUMA*8 

IF  (10.EQ.1)  GO  TO  60 
C 

C  PLOT  AN  I  GRIO  LINE 
C 

WRITE  (6,1000)  (ANAME(L.IV) ,L>I,6) ,IJG, ASYMBL (IV) 

1000  FORMAT (IHI <9X « 16H01 STRIBUT ION  OF  ,6A6/ 

4  :0X,2SHIN  J  OIRECTION  ALONG  I  ■  ,12// 

•  6X , 1 HJ, IOX, A6//) 

IFLAG«1 

VARMAXaO, 

00  40  J«I,JN 

IF  (IJG.GT.IC.ANO.J.GT.JC)  GO  TO  4S 

IF(IJG.LT.Ia8,AN0.((J.GT.JA.AN0.J,LT.JA1),0R.(J,GT.JB)))  GO  TO  45 
IF  ( 1V.EO.L7)  GO  TO  10 
IF  ( IV.EO.L8)  GO  TO  S 
IF  (IV.EQ.NVT)  GO  TO  20 
VAR( J) >AO(IJG, J, IV) 

GO  TO  30 

5  VAR (J) »G2 ( IJG, J) /RO( IJG, J) 

GO  T030 

10  VAR(J)bG1(IJG.J)/R0(IJG,J) 

GO  TO  30 

20  IF  (INOE(NVT).E0.1,ANO.R(J),6T,0.)  VAR(J)«A(IJG,J,IV)/R(J) 


r 
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90  TO  30 
♦5  VAR( J) >0.0 
30  VAHAaABS(VAR{JM 

VARMAXaAHAXl (VARMAX.VAMA) 

IF  (VAR(J).LT.O)  IFLAOa-l 
AO  CONTINUE 

DO  SO  JRa  1  *  JN 
JaJN* 1“ JR 
NARaAl 

IF  (IFLAO.LT. 0)  NARaei 

CALL  LINPLT  (NAR.AO.VAR(J) .VARMAX.IAS) 

WRITE (6.2000)  J.VAR(J) .  (lAS(LK) .LKal.NAR) 

2000  FORMAT (5X.I2.6X.OI I. 4.8X.81A1) 

SO  CONTINUE 
60  TO  120 
C 

c  plot  a  j  grio  line 
c 

60  CONTINUE 

WRITE  (6*3000)  (ANAME  (LtIV) .L»lt6) tl J0tASYN8L(IV) 

3000  FORMAT (1M1 .9X.16H0ISTRIBUTI0N  OF  .6A6/ 

♦  10X.2SHIN  I  DIRECTION  ALONO  J  a  .12// 

♦  6X.1MI.10X.A6/7I 
IFLAGal 
VAHMAXaO. 

00  100  Ial.IN 

IF  (I JG.OT . JC.ANO.I .6T.IC)  60  TO  OS 

IF (I  . LT. I AO. ANO. ( (I JO. OT. JA.AN0.IJ6.lt. JAI) .OR* (I JO.OT. JO) )) 

♦  GO  TO  OS 

IF  (IV.EO.L7I  GO  TO  7S 
IF  (IV.EO.LOI  GO  TO  70 
IF  (IV.Ea.N.TI  00  TO  60 
VAR(I ) sAQd.I  J6.IV) 

GO  TO  00 

75  VAR( II »G1 ( I . I J6) /RO (I . I JOI 
GO  TO  00 

70  VAR(I| aG2( I . I J6) /RO (I .1 JO) 

GO  TO  90 

80  IF  (INDE(NVTI.EQ.I.ANO.R(IJO).OT.O.)  VAR(IlaA(I»I JG.IV) /R (I JO) 

GO  TO  00 
95  VAR ( I ) >0.0 
90  VARAaASS ( VAR ( I ) ) 

VARMAXaAHAXl (V«RMAX*VARAI 
IF  (VAR(I).LT.O)  IFLA6a~l 
100  CONTINUE 

DO  110  IRal.IN 

I«IN»I-IR 

NAHa*l 

IF  (IFLAG.LT. 0)  NARaSI 

CALL  LINPLT  (NAH*40*VAR(I) .VARMAX. IAS) 

WRITE  (6*2000)  I .VAR( I) . (IAS (LKI «LK>I.NAR) 

110  CONTINUE 
120  RETURN 
ENO 

•DECK  LP 

SUBROUTINE  LINPLT  (NAR.NT.V.VAMAX.IR) 

C  ROUTINE  TO  GENERATE  ARHAV  IR  OF  SYMBOLS  . (BLANK. -.OR.*) 

C  FOR  PRINT  PLOT  OF  VARIATION  OF  VARIABLE  ARRAY  V.  WITH  ABSOLUTE 

C  MAXIMUM  VALUE  OF  VAMAX. 

C  NAR  ■  TOTAL  NUMBER  (MUST  BE  000)  OF  IR  VALUES 

C  >  TOTAL  WIDTH  OF  PLOT  IN  PRINTING  SPACES. 

C  NT  a  MAXIMUM  NUMBER  OF  PLOT  SPACES  ON  POSITIVE  SIDE  OF  NO 

C  MUST  BE  GREATER  THAN  10  OR  ZERO  IF  V  ALL  NEGATIVE 

C  NO  a  SPACE  IR  FOR  V  a  0..  a  NAR-NT 

C  IF  ONLY  POSITIVE  VALUES  OF  V  EXPECTED  SET  NTaNAR-I 

C  IF  ONLY  NEGATIVE  VALUES  OF  V  EXPECTEOt  SET  NT«0 
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tt  rom  -  and  *  values  expected  set  sts  umr-i)72 

PRINT  THE  lit  SYMBOLS  IN  AN  PAP  TYPE  FORMAT  MITm  NAR*I1  PRINT 
DIMENSION  IR(NAR) 

DATA  ISIGfl. I  Si DP* I  SIGH* I SIGS/lH  * 1H**1H-*IH*/ 

NO-NAH-NT 
NC«(NAR-I |/2*I 
IF  (NO.LE.NC)  NTP»NT 
IF  (NO.GT.NC)  NTP»NO-I 
IFIVAMAX.LE.O.OI  VAMAX»1. 

LRbV/( V AMAX*. 999999) *NTP 

LR*LR*NO 

LMINbNO 

LMAXblR 

IF  (LN.LT.NO.ANO.LR.GT.O)  LMINaLR 
IF  (LR*LT.NO.ANO*LR*6T.O>  LMAXaNO 
IF  (LR.LE.O.OR.LR.GT.NAR)  60  TO  20 
00  10  JbI.NAR 
IRUIbISISO 

IF  (J.6E.LMIN.AN0.J.LE.LMAX.AN0.LR.LT.N0)  IR<J)bISIGM 
IF  (J.6E.LMIN.ANO*J*LE*LMAX.ANO*LR.GE.NO)  IR(J)bISZ»P 
10  CONTINUE 
RETURN 

20  MRI IE (6*100) 

100  FOKMAT  (IX.99HIN  LINPLT  SUBROUTINE*  ABSOLUTE  VALUE  OF  VARIABLE  EXC 
•EEOS  PLOT  LIMITS.  CHECK  FOR  ERROR  IN  NT  VALUE •> 

00  30  Jsi.NAR 
30  IR(J)aISIO$ 

RETURN 

ENO 


5.0  FLUID  PROPERTIES 


The  input  data  cards  were  shown  in  Figures  175  through  179. 
The  fluid  density  can  be  constant  or  variable.  For  all  cases 
with  fuel  mixture,  with  or  without  combustion,  density  should 
be  variable.  A  reference  density  is  entered  for  constant  den¬ 
sity  and  is  used  for  initializing  variable-density  cases. 
Variable  ROWF  controls  density  variation  during  iteration. 

Values  different  from  1.0  will  over-  or  under-relax  the  dens¬ 
ity,  but  this  has  never  proved  necessary  in  any  cases  run. 

The  fluid  viscosity  can  be  constant  (INDZMU=  1)  at  the 
value  entered  for  ZMUREF,  or  the  viscosity  can  vary  (INDZMU=2) . 
Fo’*  turbulent  flow,  the  variation  of  viscosity  over  the  grid 
has  a  predominant  effect  on  the  solution.  The  program  has  a 
viscosity  computation  built  in,  but  this  should  be  closely 
examined  for  each  new  case.  Parameter  ZMUK  is  redefined  from 
the  constant  in  the  Gosman  text,  Chapter  6,  to  be  the  fraction 
of  turbulent  kinetic  energy  divided  by  the  square  of  the  inlet 
velocity.  If  entered  as  0.0,  ZMUK  is  set  to  0.02. 

The  current  program  provides  only  constant  pressure 
(IPRES  =  1)  as  most  cases  of  interest  are  nearly  constant 
pressure.  Conversion  of  the  pressure  subroutine  to  the  new 
program  format  must  be  accomplished,  if  required. 

The  number  of  spacies  (NSPEC)  should  always  be  entered 
as  6.  Species  1  through  6,  in  order,  are  CHX,  CO2,  H2O,  O2, 

CO,  and  N2.  Molecular  weights  are  entered  as  ZMW(l)  to 
ZMW(6).  Mean  specific  heats  CPJ(l)  to  CPJ(6)  are  used  for 
initial  temperature  estimates  only,  and  should  be  selected  at 
an  estimated  mean  field  temperature. 

Fluid  viscosity  defines  the  mixing  rate  for  momentum. 
Mixing  of  other  quantities  is  related  to  viscosity  through 
dimensionless  Prandtl  numbers  (PR)  on  Data  Sheet  2.  For 
example,  a  PR  of  0.5  for  NMFl  will  double  the  fuel  mixing 
rate  compared  with  momentum.  For  most  uses,  all  PR  values  can 
be  set  to  1.0  initially,  and  then  revised  to  obtain  better 
agreement  as  required.  The  Gosman  text  discusses  values  for 
the  various  equations  (text  symbol  for  PR  is  a) . 

Fuel  properties  are  described  in  terms  of  the  lower  heat¬ 
ing  value  and  the  H/C  atomic  ratio.  The  tenth  card  on  Data 
Sheet  1  shows  variables  STC,  HC,  HP,  HS,  and  SM.  STC  is  the 
stoichiometric  air-fuel  ratio,  but  is  now  computed  in  the  pro¬ 
gram,  and  entered  values  are  ignored.  The  fuel  lower  heating 
value  is  entered  in  HC  if  combustion  is  desired,  or  in  HP  if 
fuel  mixing  and  enthalpy  are  solved  without  combustion  (HC  must 
be  0.0).  HS  is  now  ignored  and  the  fuel  H/C  atomic  ratio  is 
entered  in  SM. 


6.0  INLET  CONDITIONS  AND  FUEL  EVAPORATION 


Inlet  temperatures  and  velocities  must  be  specified. 

Inlet  conditions  for  some  of  the  equation  variables  may  also 
be  specified  if  desired.  All  node  temperatures  are  initial¬ 
ized  to  TREF.  Data  Sheet  4  has  provisions  for  entering  left 
boundary  inlet  conditions.  Values  for  all  nodes  from  J  =  1 
to  JB  must  be  entered  even  though  JA  to  JA1  is  between  the  two 
inlets.  All  variables  are  identified  by  a  number,  IDVAR .  Of 
the  equation  variables,  only  NMF1  to  NMF6 ,  NHS ,  and  NZK  can 
be  initialized.  The  variable  number  to  be  used  is  the  same 
number  entered  for  the  variable  on  Cards  6  and  7,  Data  Sheet  1 
Velocity  is  identified  as  variable  No.  1?  and  temperature  is 
No.  19.  Values  can  be  the  same  for  all  nodes  (uniform  pro¬ 
files),  or  variable  profiles  can  be  entered.  The  variable 
number,  IDVAR,  is  entered  alone  on  one  card,  followed  by  cards 
with  variable  values  (VAR) .  The  total  number  of  variables 
being  entered  is  indicated  by  NVARI  on  a  separate  card . 

For  the  central  jets,  the  temperature  is  constant  at  TREF 
and  the  velocities  are  entered  on  Data  Sheet  5.  Note  that  for 
the  left  inlet  at  IS1,  the  velocity  must  be  negative  for  flow 
intc  the  grid  system.  Jet  inlet  premixed  fuel  mixture  frac¬ 
tion  (EMJET)  is  also  entered  on  Data  Sheet  5. 

When  fuel  is  to  be  evaporated  within  the  grid,  two  op¬ 
tional  procedures  can  be  used  to  introduce  the  fuel ,  by  data 
cards  or  by  a  tape  generated  by  fuel-insertion  programs  for 
the  air-assist  atomizer  (Program  1527)  or  pneumatic-impact 
atomizer  (Program  1528)  .  Fuel  is  introduced  at  a  grid  node  in 
terms  of  mass  flow  per  unit  volume  in  lb/sec/ft3/radian.  This 
variable,  FEVAP(I,  J) ,  is  printed  out  by  the  fuel  insertion 
programs.  The  values  can  be  entered  on  Data  Sheet  5  along 
with  the  applicable  IEV  =  I  and  JEV  =  J  grid  lines.  The  alter 
nate  tape  input  procedure  is  discussed  in  Section  9.0.  Appli¬ 
cation  of  evaporation  rates  during  iteration  is  controlled  by 
NEV,  the  iteration  at  which  evaporation  starts.  Evaporation 
should  be  delayed  10  to  20  iterations  to  allow  cold  flow  to 
be  established,  but  must  overlap  the  ignition  sequence  to  en¬ 
sure  adequate  fuel  for  ignition. 

The  inlet  condition  for  swirl  velocity  is  specified  by 
TANB ,  Data  Sheet  2,  and  is  the  tangent  of  the  swirl  angle. 

This  applies  only  to  the  secondary  inlet  (JA1  to  JB) . 

The  variable  ENZML  initializes  the  entire  grid  fuel- 
mixture  fraction  and  is  used  as  an  initial  guess  to  reduce 
iteration. 


7.0  ITERATION  CONTROLS 

The  maximum  number  of  iterations  is  set  by  NMAX.  It  has 
been  found  that  with  the  program  compiled  on  OPT  =  2,  it  takes 
0.0022  second  per  node  (IN  x  JN)  per  equation  (IE)  per  iter¬ 
ation.  The  total  time  required  for  NITER  iterations  is: 

f  Time  =  0.0022  x  IN  x  JN  x  IE  x  NITER. 

The  number  of  iterations  possible  in  400  seconds  is  given 
in  Table  XXVII. 


% 


TABLE 

XXVII.  NUMBER  OF  ITERATIONS 

POSSIBLE 

No.  of 
Equations 
IE 

I  Grid 
Lines 

IN 

J  Grid 
Lines 

JN 

Total 

Nodes 

IN  x  JN 

No.  of 

Iterations 

NITER 

2 

21 

441 

206 

2 

11 

11 

121 

750 

4 

21 

21 

441 

103 

4 

11 

11. 

121 

375 

7 

21 

21 

441 

59 

7 

11 

11 

121 

214 

During  iteration,  the  output  will  be  printed  every  NPRIN 
number  of  iterations.  A  value  of  20  to  50  is  recommended. 

The  output  is  also  printed  three  times  at  the  start  of  the 
program:  (1)  input  of  saved  tape  solution,  (2)  initialized 

values,  and  (3)  after  the  first  iteration. 

The  values  CC  and  DC,  Data  Sheel  1,  control  the  conver¬ 
gence  criteria.  These  criteria  are  defined  on  page  134  of 
the  Gosman  text.  From  the  Gosman  text  CC  is  X  of  equation 
3.43-8  and  DC  is  X1X2.  The  text  recommends  a  CC  of  0.001  to 
0.005  and  a  DC  of  100.  It  has  been  found  that  a  CC  of  0.01 
and  a  PC  of  10  is  good  for  initial  runs  to  get  a  rough  solu¬ 
tion  reducing  to  the  text  values  for  final  predictions. 
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The  rate  of  convergence  can  be  affected  by  relaxation. 
This  is  discussed  on  page  135  of  the  Gosman  text.  The  relaxa¬ 
tion  parameters,  RP  (1-12) ,  are  entered  on  Data  Sheet  2  for 
the  equations  and  ROWF  for  density  on  Data  Sheet  1. 

8.0  PROGRAM  OPTIONS 


The  output  is  of  four  types:  (1)  the  values  at  each 
node  are  printed  in  an  array  pattern  similar  to  the  grid  node 
pattern;  (2)  all  results  are  tabulated  in  column  form;  (3) 
grid  isoline  plots  are  made  for  any  selected  variable  that 
show  lines  of  constant  values  (like  an  isotherm) ;  and  (4) 
profile  plots  are  shown  along  selected  grid  lines  for  any 
variable.  Plotting  is  done  on  the  printed  output,  not  the 
CalComp  plotter.  Items  (1)  and  (2)  above  are  always  printed. 

Control  of  Item  (3) ,  isoline  plots,  is  governed  by  input 
on  Data  Sheet  2.  The  value  INTVAL  specifies  the  number  of 
printer  spaces  for  each  grid  line.  Values  of  2  to  4  are 
recommended.  If  the  output  size  would  exceed  the  paper  page, 
the  plot  is  reduced  by  1/2.  Value  NVJ  specifies  the  number 
of  isolines  to  be  printed,  which  can  be  up  to  9  maximum.  NVAR 
is  the  number  of  variables  to  be  plotted.  If  NVAR  is  set  to 
-1,  all  the  IE  equations  solved  are  plotted,  and  if  0,  no 
plots  are  made:  however,  if  greater  than  zero,  additional 
cards  are  read  in  to  specify  the  variables  to  be  plotted  and 
values  for  each  plot  line.  The  plot  line  values  can  be  spec¬ 
ified  in  one  of  two  ways:  (1)  the  converged  value  at  a  given 
node  can  be  selected  by  entering  INOD,  JNOD  grid  line  numbers, 
or  (2)  the  actual  desired  value  can  be  entered  as  VJE.  The 
variable  number  is  entered  as  IVAR  on  one  card  followed  by  NVJ 
values  of  either  (INOD,  JNOD)  or  VJE.  An  additional  option  is 
activated  by  setting  the  first  value  of  INOD  to  99 .  Other 
values  for  INOD,  JNOD  on  the  card  should  be  set  to  0  for  all 
NVJ  values.  This  uses  a  preset  method  of  equal  spacing  of  the 
isoline  values  between  the  minimum  and  maximum  values  in  the 
field. 

Note  that  if  the  NVAR  =  -1  option  is  used,  only  IE  plots 
of  the  solved  variables  are  plotted,  plus  the  temperature  and 
efficiency,  if  density  is  variable  (INDRO  =  2) .  If  it  is 
desired  to  plot  any  other  variable,  such  as  velocity,  density, 
or  viscosity,  all  the  variables  to  be  plotted  must  be  speci¬ 
fied  with  the  IVAR  cards. 

Profile  plots  along  a  grid  line  are  specified  on  Data 
Sheet  3.  NVP  is  the  number  of  plots  (grid  lines)  and  is  set 
to  zero  if  no  plots  are  desired.  IDP  =  01  selects  a  J  grid 
line  and  IDP  =  02  selects  an  I  grid  line.  IJGP  is  the  number 


of  the  I  or  J  grid  line  desired,  and  IVP  identifies  the 
variable.  For  example,  IDP  =  02.  IJGP  =  04,  IVP  =  19  will 
plot  the  horizontal  velocity  VI  along  grid  line  1=4. 

9.0  INPUT  AND  OUTPUT  FILE  OPTIONS 

The  program  provides  three  tapes  (or  disk  files):  TAPE1, 
TAPE2,  and  TAPE3.  Use  of  the  tapes  is  controlled  by  variables 
IOLD,  INEW,  and  IVAP.  IOLD  is  the  input  tape  containing  a 
saved  solution  from  a  previous  run.  If  IOLD  =  1.  2,  or  3,  a 
new  solution  will  be  generated  starting  with  the  solution  from 
the  specified  tape.  Normally  IOLD  =1.  If  zero,  no  tape 
input  is  required.  If  IOLD  is  entered  negative,  a  new  solu¬ 
tion  is  not  generated,  but  the  saved  solution  is  plotted  with 
the  grid  isoline  plots.  This  provides  for  replotting  a  solu¬ 
tion  with  new  values  of  INOD,  JNOD,  Or  VJE  to  gain  a  better 
view  of  the  field. 

INEW  is  the  output  tape  to  which  a  new  solution  is 
written.  If  zero,  no  tape  is  written.  If  INEW  =  IOLD,  then 
the  new  solution  is  written  over  the  old  solution. 

IVAP  is  an  input  tape  containing  values  of  FEVAP ,  fuel 
evaporation  rates  at  all  21  x  21  grid  nodes.  Set  IVAP  to  zero 
if  no  tape  is  needed.  The  tape  must  be  generated  with  the  use 
of  fuel  insertion  Program  1527,  Air  Assist  Atomizer,  or  Pro¬ 
gram  1528,  Pneumatic-Impact  Atomizer. 

The  Gosman  program  can  be  run  together  with  one  of  the 
fuel  insertion  programs  on  the  same  computer  run.  The  Gosman 
program  is  run  first  to  generate  a  flow  field  saved  on  file 
TAPE1  (INEW  =  1) .  The  fuel  insertion  program  is  then  run  with 
input  from  TAPE1  and  generates  a  fuel  evaporation  rate  file 
TAPE2 .  Fuel  insertion  program  run  time  is  about  one-half  that 
of  the  Gosman  program.  However,  by  proper  shuffling  of  the 
tape  files  and  copying  the  input  data  cards  to  disk  files,  a 
multistep  run  could  be  made. 

10.0  PROGRAM  APPLICATIONS 


Figure  183  illustrates  eight  grid  configurations  to  which 
the  program  has  been  applied.  Configurations  A  and  E  were  for 
development  of  program  options.  The  upstream  inlet  was  incor¬ 
porated  and  used  in  Configurations  F  and  G.  The  nonrectangu- 
lar  option  of  Configuration  B  was  successful  but  is  not  yet 
incorporated  in  the  final  program,  as  no  specific  applications 
deemed  it  necessary.  Configuration  C  was  used  primarily  to 
verify  the  ability  to  compute  combustion  efficiency  and  water- 
model  flow  patterns.  Configuration  D  was  used  to  predict  re¬ 
circulation  zones  and  velocities  in  a  water  model. 


Configuration  E  mode1 s  a  fuel-insertion  tunnel  and  was 
used  to  verify  the  communication  between  the  fuel-insertion 
evaporation  programs  and  the  Gosman  program.  Configuration  F 
represents  an  L-pipe  primary  zone  used  for  N0X  prediction. 
Configuration  G  represents  the  L-pipe  swirler  primary  zone. 
Computations  were  initiated  recently  to  combine  swirl,  up¬ 
stream  injection,  and  fuel  evaporation  as  a  means  of  predict¬ 
ing  primary-zone  performance.  Configuration  H  represents 
dilution-zone  mixing  beyond  the  jet  injection  point  as  a  means 
of  predicting  pattern-factor  decay. 

Operation  of  the  program  with  these  configurations  has 
shown  that  the  various  patterns  can  be  solved.  Failures  of 
the  solutions  can  usually  be  traced  to  improper  eddy  viscosity, 
excessive  grid  mode  nonuniformity,  and  difficulties  with 
source  terms  in  the  C0_  and  C0o  mass-fraction  source  terms. 
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Figure  183.  Tested  Configurations 


APPENDIX  V 


IMPINGEMENT -JET,  PRIMARY-ZONE 
RECIRCULATION  MODEL 
COMPUTER  PROGRAM  NO.  1526 


1.0  INTRODUCTION 

This  appendix  describes  a  computer  program  for  computa¬ 
tion  of  primary-zone  recirculation  created  by  centrally 
impinging  air  jets.  The  analysis  is  based  on  the  work  of 
Verduzio  and  Campanaro.38  The  main  result  of  the  program  is 
the  computation  of  the  flow  fraction  of  the  impinging  jet  flow 
that  flows  upstream  into  the  primary  zone.  With  this  program 
it  is  possible  to  optimize  the  number  and  size  of  primary- 
zone  holes. 

Although  the  analysis  is  somewhat  involved,  the  final 
equations  required  for  calculation  are  fairly  simple  and  the 
program  is  quite  short. 

2.°  PROGRAM  INPUT  VARIABLES 

The  following  variables  are  entered  on  a  single  card  with 
the  format 

3F10.0,  13,  7X,  4F10.0 

Cards  for  additional  cases  can  be  run  at  one  time,  and 
the  program  will  terminate  when  an  EOF  card  is  encountered. 


Program 

Symbol 

Parameter 

Symbol 

Units 

Description 

BETA 

Degrees 

Initial  jet  efflux  angle 
through  primary-zone  holes;  90 
degrees  is  along  jet  axis ;  0 
degrees  is  in  downstream  direc¬ 
tion;  3  in  analysis  =  90  - 
BETA.  ° 

DO 

2R 

o 

Inch 

Combustor  diameter  (single-can) 
or  annulus  width  (annular)  at 
orifice  point. 

SDO 

d 

o 

Inch 

Diameter  of  primary  holes. 

NH 

N 

- 

Number  of  primary  holes  (must 
be  two  for  annular  combustor). 

TAU 

T 

Ratio  of  inlet  air  density  to 
hot  primary-zone  gas  density. 
Can  be  estimated  as  ratio  of  T 
stoichiometric/T  inlet. 

FPZ 

f 

P 

- 

Primary-zone  fuel-air  ratio 
for  mass  addition  only . 

TANA 

tan  a 

Tangent  of  a,  jet  spreading 
angle  (see  Figure  184) . 
Recommend  value  of  0.1  be 
used. 

V 

V 

Ratio  of  flow  through  com¬ 
bustor  dome  to  flow  through 
primary  holes.  Can  be 
ef fect-ve-area  ratio  or 
obtain  from  Annulus  Loss 

Model  No .  5 . 

3.0  COMPUTATION  PROCEDURE 

A 

listing  of  the 

program 

is  presented  in  Table  XXVIII . 

The  basic  equation  to  be  solved  results  from  a  pressure-drop 
and  momentum  balance  for  the  central  impingement  region  and 
expresses  the  fraction,  k,  of  jet  flow  that  flows  upstream. 
Note  that  if  there  is  no  dome  flow,  very  low  primary-zone 
velocities,  and  straight  jet  injection,  the  flow  fraction 
would  be  0.50 — i.e.,  half  the  flow  upstream  and  half  down¬ 
stream. 


TABLE  XXVIII.  LISTING  OF  PROGPAM  NO.  1526 


ssssisssssssssssssssssstsssssssissmsssstsstsssisssssmsmssi  t»u ' 


PROGRAM  IMPINGE ( INPUT .OUT PUT. TAPES* INPUT , TAPE6*DUTPUT) 

WRITEI6.1000) 

1000  FORmaT(1H1.*  program  IMPINGE  -  PRIMARY  ZONE  RECIRCULATION  •) 

10  READ  15.100)  BETA. DO. SDO.NH.TAU.FPZ. TANA. V 
140  FORMAT  ( 3F 10.0. 13. 7X.AE 10.0) 

IF  (E0F(5> >999.20 
20  BETO»90.“3ETA 
PI*3. 14159205 
RAO*57. 29578 
F*16.-.45*BET0 
RUET>BET0/PA0 

OELSOO*l . *F*COS ( RBET) ••2/NH/NM 
AO*P I *00*00/4. 

HO»0O/2 

0EL2R*0£LS00*S00/00 
COSG*SORT (1 . - 1 OtLZR > **2 > 

SINPN*  SIN! ISO. /NH/HAOJ 
COSPN*  COS (180. /NH /RAO) 

8I*(0EL2R*TANA*CDSG)/(SINPN*TANA*CDSPN) 

R1*R0*8I 

GAM>ASIN<OEL2R) 

SINPNG*  SINl (1«0./NH/RAO)-GAM) 

812*81*81 

A3AR* ( 1 .-R 12) / ( 1 .“NM/PI* (GAM*8I*SlNPNG) > 

Cl  * .5-TAN (RBET) *BI2/2/NH* (DO/SOO) **2 

C2*  TAU/4.*(l.»FPZ)**2*8l2/(l.-BU)**2 

C2*C2*(A3AR-1.)**2 

C3*  1./C2  -  2*V 

C4*V*V“C1/C2 

C5*{ (C3/2)**2-Cn) 

IF  (CS)  40.40,30 
30  RK*-C3/2.*SQRT(C5> 

IFG*0 
GO  TO  SO 
40  RK*-C3/2. 

IFG*1 

50  E*HK*PI*NM*(S00/00)**2 

WRITE (6,20  0)  8ETO.ao.SOO.NM.TAU.FPZ 
2000  FORMAT (//•  BETA  0  *  *.F8.3,*  LINER  DO*  *,FB.3.*  ORIF  0  »  •» 

♦  F8.3,*  NO  MOLES*  *,15.*  DEN  RATIO*  *,FB,3.*  F/A  PZ  »  *, 

♦  F«.5> 

WRI TE (6,3000 )  V.BI.Rl.F , GAM. A3AR 

3000  F0RMAT(1X,*V  RATIO*  *,F8.4«*  B  I  *  *»F8.4,*  R  1  *  «t 

♦  F8.4.*  F  PARAMa  *,F8.3.*  GAMMA  s  *,F8,5t*  A3/AR  s  •» 

♦  F8.5) 

WRI TE (6.4000)  C1.C2.TANA.  RK.E 

4000  FORMAT (IX.*  C  1  *  *.F9.5»*  C  2  *  *.F9,4  »•  TAN  ALPH*  *»FB.4» 
«  22X,*  K  FRAC  *  *,F8.5,*  E  PArAM*  *,FB,5.' 

GO  TO  10 
999  STOP 
END 


The  equation  to  be  solved  is 


k--(vtM +  v 

[*♦ 

'  1 

(•■-Si) 

(150) 

tan 

(fU 

Bi2  /  Do 

\2 

where  =  0.5  -  - 

U 

2n 

) 

(151) 

C 


2 


t  (1  +  f)2  B±2 


(.152) 


Values  in  this  equation  are  inputs,  with  the  exception  of 
and  A3/Af.  Bi  is  the  ratio  of  the  impingement- zone  radius 
to  the  combustor  radius.  The  impingement- zone  radius,  ,  is 
computed  as  the  radius  that  encompasses  the  points  at  which 
adjacent  jets  intersect  as  shown  in  Figure  184.  Trigonometry 
yields 


(153) 


Everything  is  given  but  a  and  y.  6  is  the  initial  jet  width 
with  the  jet  deformed  by  the  primary  exit  flow.  This  is 
obtained  from  an  empirical  relation 


g-  -  1  +  ^2  cos2  Bo  (154) 

o  n 


where  F=  16  -0.45* 

o 

X 

The  angle  y  =  arcsin 

o 

This  completes  calculation  of 
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In  addition  to  calculating  the  flow  fraction,  k,  a 
parameter  is  derived  which  characterizes  the  recirculation  so 
that  optimum  designs  can  be  selected.  For  a  fixed  pressure 
drop,  combustor  diameter,  and  number  of  holes,  the  mass  flow 
recirculated  (gr)  is  a  function  of  orifice  diameter.  As  the 
diameter  increases,  flow  ratio  (k)  decreases  but  orifice  flow 
(g)  increases  so  that  recirculated  flow  passes  through  a  maxi¬ 
mum.  The  optimization  parameter  is  computed  as 


(155) 


4.0  PROGRAM  USAGE 


A  typical  program  output  is  presented  in  Table  XXIX.  In 
addition  to  using  the  program  Results  alone,  the  recirculating- 
flow  rate  (gr)  and  diameter  of  impingement  zone  (Ro)  can  be 
used  for  input  to  the  Gosman-Spalding  primary-zone  two- 
dimensional  flow  program.. 
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TABLE  XXIX.  PROGRAM  NO.  1526  OUTPUT 
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APPENDIX  VI 


DIiUTION-ZONE  jet-trajectory  calculation 
COMPUTER  PROGRAM  NO.  1530 


1.0  INTRODUCTION 

This  appendix  describes  a  computer  program  for  computa¬ 
tion  of  air-jet  injection  trajectories  into  a  gas  stream  with 
nonuniform  velocity  and  temperature  profiles.  The  procedure 
is  used  for  optimizing  dilution  orifice  sizing.  The  program 
can  be  used  alone  to  aid  in  orifice  sizing,  or  can  be  used 
together  with  the  Gosman-Spalding  program  to  estimate  mixing 
rates  and  pattern  factor. 

There  are  many  reports  of  analytical  and  empirical'  cor¬ 
relations  for  jet  trajectories  in  uniform  streams.  The  pur¬ 
pose  of  developing  this  program  was  to  incorporate  the  effects 
of  mainstream  velocity  and  temperature  profiles,  duct  area 
change,  ana  mass  addition  effects.  The  program  analyzes  a 
single  circular  jet;  however,  with  proper  input  of  mass  addi¬ 
tion  effects,  this  program  can  simulate  a  multiple- jet  ar¬ 
rangement. 

2.0  PROGRAM  STRUCTURE 

A  listing  of  the  program  is  presented  in  Table  XXX.  The 
program  consists  of  nine  subroutines  that  perform  the  follow¬ 
ing  functions : 

o  TRAJEC  -  Main  program  controls  the  finite  difference 
step  process  in  the  cross-stream  direction.  Calcu¬ 
lation  is  stepped  in  increments  of  jet  diameter. 
Results  are  saved  for  trajectory  plotting. 

o  INREAD  -  Reads  in  data  cards . 

o  STEP  -  Calculates  the  change  in  trajectory  angle 
for  each  step. 

o  OUTPRT  -  Prints  out  results. 

°  PATHPL  -  Plots  initial  effective  velocity  ratio  pro¬ 
file  and  jet  trajectory.  Plotting  is  done  on  the 
output  printer,  not  the  CalComp  plotter. 

o  LINPLT  -  Used  by  PATHPL  to  generate  velocity  ratio 
plot  symbols. 


TABLE  XXX.  LISTING  OF  PROGRAM  NO.  1530 
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PROGRAM  TRAJEC  (INPUT * OUTPUT t TAPE5»INPUT. TAPE6*0UTPUT . TAPE7«512) 
common  /OUTSAV/  BETA ( 100) «S00( 1 00) tS(IOO) iHDO (100)<H(100)< 

♦  Y0O(100)»Y(I00).OYOO(I00).XOO(10#>.X(l00).AP(100».SM100).V(l00>. 

♦  ROG(IOO)  fVG(IOO)  .MJmJOUOO) 

♦.VOP(IOO) .TOP(IOO)  .VCL(IOO)  .TCL(IOO) 

COMMON/ JETINT/HOJ«VJO*OH*00.8ETAO,AVIRT*AO.NJO.COj.TJO*PO.NTYP 

♦  .EMO 

COMMON/PROF I L/NVP.YP (100) .ROGP (1 00) • V6P (100) «T0GP (100) tABLK 
COMMON/FUNCKV/NVKT.SKFTilO) .VKT(IO) tNVK(IO) |SKFR( 16*10) tVK(lOilO) 
COMMON  /STEPCN/  OYHOO* YMAX*BETHIN.NSAV*PL1M* IPLT 
common/stepcc/  beta! .betai 1 .PAR*M,*,SOOS.OYOOS. BETAS. OSOO. 0X00 

COMMON/ AFAC/NXP • XA ( 1 00) ♦ AF ( 1 00) 

10  CALI.  INREAO 
PI“3. 1*159265 
RAO-57. 29573 

RO J«39 . 6836-PO/ ( T JO*460 . ) 

OO-SORT (COJ) *0H 
AO-P I *00*00/4. 

RBO-BETAO/RAO 

CONS  a*./(PI*SIN(RBO)) 

EM0*R0J*VJ0*VJ0 

»J0aR0J*A0*Vj0/I*4. 

00  15  I-l.NYP 

1 5  ROGP ( I ) *39 ,6836*P0/ ( TOGP ( 1 ) *460* ) 

AaAVIRT 

soos«o. 

YOOS-O. 

XOOSaO* 

APSaO. 

OYOOSaO. 

WJ* JOS* 1.0 

OETASaBETAO 

VGSaVGP(I) 

ROGSaROGP ( 1 ) 

VE-SORT ( ROGP ( I ) /EMO) • VGP ( I ) 

VAaABS(VE) 

IF (NT VP.EO.O)  GO  TO  17 
NVKTaNVK(NTVP) 

00  16  iKal.NVKT 
SKFT (IK)*SKFR(IK*NTYP) 

16  VKT ( IK) aVK ( IKtNTYP) 

1 7  CONTINUE 

CALL  INTERP (2«NVKTt VKTtSKFT . VAt SKSt JJ) 

HO0S«2 • *AV1 RT *SKS 

VEMaVE 

VF.SaVE 

JS»I 

Jal 

BETAI aUETAO 
BETAII-BETAO 
CALL  OUTPRT (0) 

GO  TO  25 
20  CONTINUE 

OYOOSa 1 • /NS A V 

IF  (VEM^NE.G.I  0Y00MXa0VRQ0/A8S(VEN) *.000001 
22  IF  (OVOOS.LE.OVOOMX)  GO  TO  2* 

OYOOSaOYOOS/2. 

GO  TO  22 

2*  YOOSaYOOS«OYOOS 

YM* Y0OS»O0-OY0OS»OO/2 . 

CALL  INTERP  (2*NYP»YP» ROGP. YN.ROGN. JJi 
CALL  INTERP  (2»NYP»YP»VGP*YN»VGN* JJ) 
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xs»xoos»oo 

CAU  INTERP <2. NXP.X»,AF.XS.AFS.JJ) 

VGM»VGh/AFS/ ( 1 .-Ad LK> 

VE*«SQRT 'ROGM/EMO) * V6H 
VA«ABS(VEM) 

CALL  INTERP<2.NVKT.VKT.SKFT.VA.SKN.JJ) 
PAHAM«CONS*SKM*VEH*ABS « VEM) 

CALL  STEP 
SOOS>SDOS«OSDO 

xoos«xoos*oxoo 

HOOS»MOOS«DSDO°SKM 

aps»aps*hdos*oydos«oo«oo 
WJPJOS«l .♦SORT (R06H/R0J) *APS*VA  /AO 
IF  (JS.LT.NSAV)  GO  TO  30 
YS»Y00S»00 

CALL  1NTERP  (2.NYP.YP.ROGP.YS.ROGS.JJ) 

CALL  1NTERP  (2*NYP*YP*VGP*YS* VGS* JJ) 

XS«XOOS*DO 

CALL  INTERP  I2.NXP.aA. AF .XS.AFS.JJ) 

VGSsVGS/AFS/ ( 1 . -ABLK) 

VES-SORT (ROGS/EMO) *V6S 
VAbARS(VES) 

CALL  INTERP (2.NVKT.VKT.SKFT.VA.SKS.JJ) 

JS»0 

J«J*1 

25  BETA(J)bRETAS 
SOD ( J) »SDOS 
S< J)»S00S*0O 
HOO ( J) »NOOS 
M< J)»HDOS*0O 
YDO(J)«VDOS 
Y(J)«V00S»00 

ovoou)«ovnos 

XOO(J)«XOOS 

X ( J) «XOOS*DO 

*P(J)».'PS 

SK ( J) »SKS 

W(J!«VES 

ROG ( J) *ROGS 

VG(J)BVGS 

WJBJO(J)bWJWJOS 

ROKBROGS/ROJ 

SROH«SORT(ROR> 

VDbO. 

1F(VA*SR0R.EQ.11G0  TO  2B 

VD»(WJWJ0S/1.1“2»'.S00S*AVIRT)**2)-2.625*VABSR0R) 
•  / (ROM* ( 1 #«VA*SR0H)*«826) 

28  CONTINUE 
V OSbVD 

if:vd,gt.i.o)  vdsbi.o 

IF(YOvLT.O.)YOSbO. 

VCL ( J) »VGS*VOS#( ABS1 VjO) -ABS ( VGS) ) 

CALL  INTERP(2«NYP«VP»T0GP*Y ( J) .TG.JJ) 

TO«VO*.7A 

IFCTO.GT.l.O)  TO»1.0 
IFITO.LT. O.)TD»0. 

TCL ( J) »TG.TO* (TJO-TG) 

VOP<J)bVOS 
TOP(J)»TD 
CALL  OUTPRT(J) 

IF  (J.EQ.l)  GO  TO  20 
30  JS>JS*i 

BETAIIbBETAI 

BETAIbBETAS 

IF  (Y(J).OE.YMAX.OR.J.GE.IOO)  GO  TO  AO 
IF  (BETAS.LT. 90.. AND. BETAS. LE.BETMIN)  GO  TO  AO 
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IF  (3tT«.6T.90..AN0.rr*ff.-BETAS)*.TT7SrrMIN)  60  TO  40 
60  TO  20 

40  CAUL  PATHPUJ) 

60  TO  10 
ENO 

SUBROUTINE  INREAO 

COMMON/ JET INT/ROJ. VJO .0H.00 .8ETA0, AVIRT  » AO, WJO. CDj. TJO.PO. NTYP 

♦  *£M0 

COMMON/PROF I L/N VP *  YP (1001 *R06P (100) .VOP(IOO) *TOGP (100) • ABLK 
COMMON /FUNCKV/NVKT  tSKFT (10) .VKT(lO) «NVK ( 10 ) *SKFR ( 10* 10) *VK( 10*10) 

common  /stepcn/  oyroo* ymax* betmin.nsav.pl im. i put 
COMHON/AFAC/NXP.XA (100) * AF ( 100 ) 

OIMtNSION  XOAT (8) 

OAT  A  TJO, VJO.PO, OH. BETAO.AVIRT.NTVP.COJ/540..1. *25. 19933*1. *90.* 

♦  .8. 1*1.0/ 

DATA  NVP* YP( 1 ) *  VP (2) • TOGP ( 1 ) .T06P (2) *V6P ( 1 ) * VGP (2) • ABLK/ 

*  '2.  0*.  1000**540..  540*.  1.0*  1.0*  0./ 

OATANXP.XA(l) *XA(2) . AF ( 1 ) • AF (2) /2.O.* 1000. • 1 • • 1 ./ 

OATA  OYROO.YMAX.BETMIN.NSAV.PLIM/. 0125. 10. .2. .10.  .06/ 

OATA  IPLT/1/ 

OATA  NVKT.SKFT(l) «SKFT(2) «VKT(1) « VKT (2) /2. 1  * . 1 • *-1000,. 1000./ 
OATA  NVK(l), (SKFR(I.l) »I«1.2) t ( VK (1*1) ,1*1.2)/ 

♦  2,  1.0. 1.0*  -1000. .1000./ 

OATA  NVK (2) . ( SKFR (1*2) *1*1*10) t ( VK < I , 2) , I « 1 . 10) / >0* 

*  .32**45  ..7  *.9  • 1 .03* 1 .06* 1 .06* »BS  *.8  *.B  • 

♦  .01*. 067*  .1  * .125* . 167 * .2  *.25  *.5  *1.  *100,/ 

OATA  NVK13). (SKFRU.3) *I«1,10). (V*( 1*31* I»l* 101/ 10* 

«  .32*. 525  ..6  *.67  ,.725*. 76  ,.78  *.79  *.8  *.8  • 

•  ,00  ,.l  ,.2  *.3  *.4  *.5  *.6  *.7  ,.8  *100./ 

READ  INPUT  OATA 

2  CONTINUE 

REAU (5.100) ICARD.XOAT 
100  FORMAT (I1.F9.0*7F10.0) 

IF  (EOF (5) )  999*5 
5  CONTINUE 
RE* I NO  7 
WRITE (7)  XOAT 
REWIND  7 

IF(ICARO.LT.l)  GO  TO  10 
IF ( ICARO.fiT .6)  GO  TO  60 
60  TO  (10,20*30,40*50.60) *ICARO 
10  REAO (7) TYP.TJO.VJO.PO.OM.BETAO.COJ 
NTYPaTYP 
60  TO  2 
20  NYPwXOAT ( 1 ) 

ABLK>XOAT (2) 

HEAD (5.300) (YP( J) , TOGP(J) »VGP( J1 »J«l*NVP) 

200  FORMAT (9F8.0) 

60  TO  2 
30  NXP»XOAT ( 1 ) 

REAO (5,300)  ( X A ( J) »AF ( J) *J»1*NXP) 

300  FORMAT (BF10.0) 

GO  TO  2 

40  REAU(7)OYROO,YMAX,BETMIN*SAVN,PLIM,PLT 
IPLTwPLT 
NSAVaSAVN 
60  TO  2 
50  NaNTYP 

NYKT«X0AT(1> 

REAO(5,389) (SKFT(I) *VKT(I) *I«1*NVkT> 

GO  TO  2 
60  RETURN 
999  STOP 
ENO 

SUBROUTINE  STEP 

COMMON  /STEPCC/  BETAl*BETAll*PARAM,A,SOOS*OYOOS»BETAS,OSOO»OXOO 
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RA0*57«29578 

COTBI*0. 

COTWI1*0, 

cotba*o. 

IF  (BETaI.EQ.90..AUD.BETAI1.EQ.90.>  60  TO  30 

IF  (8ETAI.EO.90.)  60  TO  10 

RBI*8ETAI/RAO 

COTbI*1./TAN(RBI) 

10  IF  ( 8ETAI 1 . E0.90 . )  GO  TO  2? 

RBI • *dETAl 1/RAO 
C0TBI1*1./TAN(HBI1) 

20  COTdA* <  3.*C0TBI -COTB 1 15/2. 

30  OSOO*SURT ( 1 .♦COTBA*COTBA) *OYOOS 

COTB=COTB I *PARAM* ( i ,*A*SOOS*OSOO) •PYDOS 
DXOO* (COTBI *C0TB) /2.*0Y00S 
IF  (COTB.EQ.O.)  60  TO  A!) 

BETmS«ATAN»1./C0T8) 

8ETAS=BETA5*RA0 

IF  ( BETAS. LT.O. )  0ET AS*1 80 . ‘ SET AS 
RETURN 
40  8EIAS»90. 

RETURN 

ENU 

SUBROUTINE  OUTPRT(J) 

COMMON  /OUTSAV/  HETA(IOO) .SOO(IOO) *S(10C> .HOO(IOC)  ,M(100)  , 

«  YOO(IOO) .YtlOO) .UYOO(ICO) ,*00(100) .XtlOO) .A? (100) .SKI 100) »V C 1001  * 
♦R06 (100) ,V6( 100 ) ,WJWJO(100) 

♦  ,VUI>()  00)  .TOPI  100)  . VCUIl'  0)  .TCL(IOO) 

COMMON/ JET INT/ROJ.VJO. OH. 00, 8ETAO, AVIRT, AO. W JO. COJ. TJO.PO.NTYP 

♦  .EMO 

COMMON/PROF IL/NYP.YPI 100) .ROGP ( 1 00 >  » VGP ( 1 00) .TOGPllOO) , ABLK 
COMMON/FUNCKV/NvrT.SKFTI 10) ,VKT( 10) .NVKI10) ,SKFR ( 10, 10) , VK ( 10, 10) 
COMMON  /STEPCN/  UYR00.YMAX,8ETMIN.NSAV,PLIM,IPlT 
COMMON/AFAC/NXP.XAIIOO) .AF(IOO) 

OIMENSION  AL (50) 

DATA  (Aid), 1*1, 40)/ 

♦  10H0ENSITY,  .10HLB/FT3  s.lOMUELTA  Y/R  ,10MDO  *, 

♦  10HVELOCITY,  .10MFT/SEC  *.10MY  MAX,  IN..10M  *, 

«  1  OH JET  01  AM. , , 1 OHOO,  IN.  *,10h8ETA  MIN.  .  10H  a, 

♦  10HEFFLUX  ANG.10MLE,  OEG.  a.IOHNO.  OF  STE.10MPS  TO  PRIN.3HT  «, 

♦  10MVIRTUAL  SO, 10HURCE  a.IOHJET  AREA.  ,10MSQ.  IN.  a, 

♦  10HJET  MOMEN..10M  L8/F/52  ".IOHFlOW  RATE ,  ,  1  OH  LB/SEC  *» 

♦  10MY,  IN.  .10MTEMP,  F  ,  lOHVELOCtTY  »  2MVE,lM'X, 

♦  10MTEMPERATUR.10ME.  F  *, 1 OMPRESSURE.  .10HATMOS  *, 

♦  10M0ISCMAHGE  .10MCOEF.  * , 1 OHHOLE  01 AM, , 1 OM.OM,  IN,  s, 

♦  10HPLOT  SMOOT  » 1 OHH  LIMIT  */ 

IF  (J.GT.O)  GO  TO  30 

WRITE  (6,100) 

100  FORMAT  (27H1JET  TRAJECTORY  CALCULATION,//  5X» 19HINPUT  DATA//  » 
♦7X.18HINITIAL  JET  OAT A  35*» 19HSTEP  CONTROL  OATA  -) 

WRITE  (6,200)  Al(1) ,AL(2) ,R0J,AL(3) ,AL(4) .OYROO 

WRITE  (6,200)  AUS)  ,AH6)  ,VJO,AL(7)  ,AL(8)  .YMAX 

WRITE  (6,200)  AL<9)  ,AL(10)  .OO.ALdl)  »AL(12)  .BETMIN 

WRITE  (6.300)  AL ( 13) ,AL(14) , 8ETAO, AL ( 15) *Al(16> . *L (17) ,NSAY 

WRITE (6,200) AL (31) ,AL(32) ,TJ0,aL(J9) »AL(40) .PLIM 

WRITE (6,400) AL (33) ,AL(34) ,PO 

WRI TE (6,400) ALI3S) ,AL(36) ,COJ 

WRITE (6,400) AL (37) ,AL(3B) ,0H 

WRITE  (6,400)  AL( )8) ,AL(19) ,AVIRT 

WRITE  (6,400)  Al (20) , AL (21) ,*0 

WRITE  (6,500)  AL(22) ,AL(23) ,£M0 

WRITE  (6,400)  AL (24) , AL (25) ,WJO 

WRITE (6,870) NT YP.A8LK 

870  FORMAT (9X,*0RIFICE  TYPE  NO.  *  *, I6.25X,*0UCT  AREA  FRACTION  BLDCKE 
♦0  BY  JETS  *  4tF11.5) 

WRITE  (6,600)  AL(26),AL(27),AL(28),AL(29),AL(30) 
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L-l 

10  JR-L 

IF (L.LE.NYP)fc'RITE(6.700) YP(JR) .TDQPIJR) .VGP(JR) .ROGP(JR) 

IF (L.GT.NYP) WRITE (6*860) 

860  FORMAT (1H  t 

IF (L.LE.NVKT) WRITE (6*800) VKT( JR) *SKFT( JR) 

IF (L.LE.NXP) WRITE (6*950)  XA (JR) »  AF (JR) 
IFJL.GE.NYP.ANO.L.GE.NVKT.ANO.L.GE.NXP)  GO  TO  20 
L-L*I 
GO  TO  10 
20  WRITE  (6*900) 

RETURN 

200  FORMAT  (9X*2Al0*Fi3.6*20X*2AI0*2X*F8.«> 

300  FORMAT  (9X.2AI0.FI3.6.20X.2M0.A3.IX.I*! 

400  FORMAT  I9X.2AI0.FI3. 6) 

500  FORMAT  (9X*2AI0*FI3.II 

600  FORMAT  ( IH0.7X 1 23HUPSTHEAM  PROFILE  DATA  -*20X* 

*  31 mSPHEaO  RATE  PARAMETER  VERSUS  VE*IOX**OUCT  AREA  RATIO*// 
*I0X,3A10.I0MU£N$ITY  »12X.a2,10X,AI , I 7X.1HX.9X*’ oharea  RATIO  ) 

700  FORMAT (7X*F8.3*SX*F6.1*4X*F7.2*3X*F8. 5) 

800  FORMAT (1H«*S7X*F9.3*5X«F7*4) 

850  FORMAT (2M*  .86X.FI0.3.SX.FII .5) 

900  FORMAT (1M1.T5.IHY. T12.4HY/DD. T2I »1HX. T27.4HX/D0. T35. IMS* T42.4M5/00 
•»T50»1MN.T54»4MN/00»T64.2HV£. T70.2MVG.T77. 3HV0P.T83.5MVJ  CL. 

*  T91f3HT0P.T97.5HTJ  CL.T104.4H8ETA.TII0.6HWJ/WJC.T120.1HK) 

30  WRITE(6.1000)Y(o) *YOO(J) . X ( J) .XOO ( J) ,51 J) .S00( J» *H( J) .HOO(J).VIJ) . 

•  VG ( J) .VOP(J) .VCL(J) .TOPI J) «TCL( J) .PtTA(J) .WJWJOI J) .SK( J) 

fooo  FORMAT (IX.F7.3»F7.2»F8.3»F7.2.F8»?.F?.2»FT»2»F7»2»F?.3*F?.1»F7»3» 

♦  F7.1 *F7.3.F7.0.F7.2.F7.2«F7.4) 

RETURN 

Emu 

SUBROUTINE  PATMPL(NPT) 

common  /OUTSAV/  BETA ( 1 00) .300 (IOO).S(IOO). HOD (lOO).M(lOO). 

•  YOO (100) .Y(IOO) .OYOO(lOC) .XOO(IOO) .X(  1 00) I  API  100) .SKI  100) .V(IOO). 
♦ROG(IOO) .VGIlOO).WJWJO(iOO) 

♦  .VOP  I100).T0P(I00).VC'.  (lOO).TCL(lOO) 

COMmON/JETINT/HOJ. VJO.OM.OO.BE TA0.AV1RT. AO* W JO. CO J.T JO .PO.NTYP 

•  .EMO 

COMMON  /STEPCN/  PYROO.YMAX.BETmIN.NSAV.PLIM.IPLT 
OImENSION  IP(101).IAL(I9) , I AH (21) 

OAT*  ISIGB.ISIflP.ISIGM/IH  .1H..1H-/ 

0ATA(IAL(I)«I*1«I9) /4M-8«0.4H-7«0.4M»6,0.4M»5.0.4M»4.0»4H-3.0. 

•  4M-2.0.4H-i.0»4M  0.0.4H  I.O»*H  2.0.4H  3.0.4H  4.0*  4H  5.0.4H  6.0* 

*  4M  7.0.4H  8.0.4M.9.0.4M10.0/ 

Data  LABI/4H  X  /.LAB2/4Hx/00/.LAB3/4H  Y  / . LAB4/4HY /DO/ 

C  IPLT-0.PLOT  AS  X/OO.Y/OO  —  IPLT-1  PLOT  AS  X.Y 
XMlN«0. 

XMAXsO. 

VEMAX-O, 

00  10  J-I.NPT 
VEAB-ABS ( V ( J) ) 

VEMAX-AMAV1 (VEMAX.VEAB) 

IF  (VEAB.EO.VEHAX)  VEMAXD-V(J) 

IF  (Y(J).GT.YMAX)  GO  TO  26 
IF ( IPLT.EQ.I )  GO  TO  5 
XMlN>i.MlNl  (XMIN.XOO(J) ) 

XMAAaAMAXl (XMAX.XOO(J) ) 

GO  TO  10 

5  XMIN»AMINI (XMIN.X(J) ) 

XMAX-AMAXI (XMAX.X(J)  ) 

10  CONTINUE 

20  IF  (XMIN.GE.O.)  NDRIG-0 
X2— 2. 

IF  (XmIN.LT.O. .AN0.XMIN.6E.X2)  NORIG-2 
X4— 4. 

IFIXMIN.LT.X2.AN0.XMIN.GE.X4)  NORIG-4 
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X6*-6. 

IF ( AMIN. LT.X4. AND. XMIN.GE.X6)  NORIG-6 
XBa-B. 

IFIXMIN.lt. X6>  NORIG«B 

NLO«9-NORIO 

NHI»NL0*10 

IF (IPLT.E9.0) WHITE (6. 100) VEMAX0<BETA0<LAR4<LAB2 
m  IF (IPlT.EQ.1) WHITE  16. 100) VEM*X0,BET*0.L*83. LABI 

9  100  F0«M*T (1H1..JET  PATH  PL0T».10X.«VE  MAX  »  •.F10.5.10X 

♦••INITIAL  JET  ANGLE  ■  • »F 10 . 2///  1 X,TB.9MVE'VE  MAX.T24.A4.T74.A4) 
WRITE (6.200)  SIAL(I) .I-NLO.NHI) 

200  FORMAT C 1H0. 21X.  1 1  (6X.  A4 ) //U.2H-1 , 8X.  1H0.9X,  1H1 .8X.  1H1 .  10 <9H— — 
* - •  1HI )  ) 

•  00  30  I-1.101 

30  IP(I)alSlGS 
J«0 
VP«0 

40  LP*( VP* .000001) *10 

IF(IPlT.EO.I)  GO  TO  44 

CALL  INTERP  (2.NPT.VOO.V.YP.VEP.JJ) 

CALL  INTERP  (2.NPT. VOO.XOO.VP.XP. JJ) 

GO  TO  46 

44  CALL  INTERP(2.NPT»Y .V.YP.VEP.JJ) 

CALL  INTERP(2.NPT.V.X.VP.XP.JJ> 

46  CONIINUE 

CALL  LINPLT  (21.10.VEP.VEMAX.IAR) 

50  CONTINUE 

NCT»NORIG*10*1 

lxt»xp*io.*nct 

LXM«XP*100.*NCT«10 
LXTT»lXT«10 
ol«lxh-lxtt 
OXaABS(OL) /100. 

IF  (OX.GT.PLIM.AND.XP.LT.O.*ANO.LXTT.GT.LXH)  LXTTaLXTT-10 
IF  (OX.GT.PLIM. ANO.XP.GT.O. .AN0.LXH.GT.LXTT)  LXTTbLXTTMO 
UL«LXH-LXTT 
OXaAPS (OL) / 100. 

LXaLXTT/10 

IF  (LX.GT.lOl.OR.LX.LT.O)  RETURN 

IF  (OX.LT.PLIM.ANO.LX.LF.10i)  IP(LX)aI$IGP 

JPaj/6«10 

JPP-JP/10 

IF  (LP.EQ.JP)  WRI T£  <6.300)  ( I AR ( JR) . JRal .21 ) . JPP. ( IP( JR) . JRal ,LX) 
IF  (LP.NC.JP)  WH ITE (6.400)  ( I AR ( JR) » JRa 1 .21 ) .ISIGM. 

«  '  IP(JR) .JR-l.LX) 

300  FORMAT  (1X,?1A1.3X.I1.4X,101A1) 

400  FORMAT  (1X.21A1.3X.A1.4X.101A1) 

YCH*YP*00 

IF(IPLT.EQ.l)  YCHaYP 
ypaYP*l./6. 

IF(YP.GT.q.OR.VCM.GE.YMAX)  RETURN 
I  J* J* 1 

IP (LX) «ISIGB 
GO  TO  40 

EKO 

SUBROUTINE  LINPLT  (NAR.NT .V.VAHAX.IH) 

ROUTINE  TO  GENERATE  ARRAY  IR  OF  SYMBOLS  •  (BLANK. -.OR.*) 

FOR  PRINT  PLOT  OF  VARIATION  OF  VARIABLE  ARRAY  V.  WITH  ABSOLUTE 
MAXIMUM  VALUE  OF  VAMAX. 

NAR  ■  TOTAL  NUMBER  (MUST  BE  ODD)  OF  IR  VALUES 
a  TOTAL  WIOTH  OF  PLOT  IN  PRINTING  SPACES. 

NT  ■  MAXIMUM  NUMBER  OF  PLOT  SPACES  ON  POSITIVE  SIOE  OF  NO 
MUST  BE  GREATER  THAN  10  OR  ZERO  IF  V  ALL  NEGATIVE 
NO  a  SPACE  IR  FOR  V  a  0*.  •  NAR-NT 
IF  ONLY  POSITIVE  VALUES  OF  V  EXPECTED  SET  NTaNAR-l 
IF  ONLY  NEGATIVE  VALUES  OF  V  EXPECTED.  SFT  NTaf, 
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c  ip  tf<JTH~^"A&l)  ♦  values  expected  iEf  nt*  <nCT-'H/2 

C  PRINT  THE  in  SYMBOLS  IN  AN  *A*  TYPE  FORMAT  WITh  NAR«Il  PRINT 

OIMtNSION  IR(NAR) 

DATA  IS1GR. ISIGP. ISIGM* ISIGS/IH  . 1M* • 1H-. 1H<*/ 

NO*NAH-NT 

NC*(NAR-l)/2*l 

IF  (NO.LE.NO  NTP*NT  ^ 

IF  (NO.GT.NC)  NTP*NO-l  * 

IF (vamax.le.o.o)  vamax«i; 

LR*V/( VAHAX*. 999999! *nTP 

LR«LR*NO 

LMINsNO 

LMAXsLR  t 

IF  (LH.LT.NO.AND.LR.GT.O)  lmin-lr 

IF  (LR.LT.NO.AND.LH.GT.O)  lmax»no 

IF  (LR.LE.O.OR.LH.GT.NAR)  go  TO  20 

00  10  Jcl.NAR 

IR(J)«ISIGR 

IF  (J.GE.LMIN.ANO.J. LE.LMAX.ANO.Lfi.LT.NO>  IR( J) *ISI6M 
IF  (J.GE.LMIN.ANO.J. LE.LMAX.AND.LR.GE.no>  IR(J>*ISIGP 
10  CONTINUE 
RETURN 

20  WRITE<6.100> 

100  FORMAT  (1X.99HIN  LINPLT  SUBROUTINE*  ABSOLUTE  VALUE  OF  VARIABLE  EXC 
♦EEOS  PLOT  LIMITS.  CHECK  FOR  ERROR  IN  NT  VALUE.) 

00  JO  Jsl.NAR 
30  IR ( J) sISIGS 
RETURN 
ENO 

SUBROUTINE  INTERP  (IO.N.PN.WA.P.ZZ.JJ) 

DIMENSION  PN(IOO) tUA(lOO) «A<5) ,B(5) 

CALL  HILOW  (PN.P.N.ILt IH.JJ) 

IF(JJ-1>2, 30.50 
2  IFIIL-IHJ20.I0.20 
10  ZZ«KA(IL> 

RETURN 

20  IF  < IL“1 ) 30 .30 .40 

30  CALL  LAGRNG  ( IO.PN.HA.P.Z) 

zz»z 

return 

*0  IF ( IH-N) 80.50.60 
SO  K1«N-I0 
60  DO  70  1*1 . ID 
J*I*KI 
A  ( I ) *PN( J) 

70  B ( I ) *WA ( J) 

CALL  LAGRNG( ID.A.B.P.Z) 

ZZ=Z 

RETURN 

BO  IF  (  ABS (P-PN ( ID ) -  ABSIP-PN(IH) ) >90.90.100 

90  K1*IL-I0*1  | 

GO  TO  60 
100  K1*IL-I 
GO  TO  60 
END 

SUBROUTINE  HILOW  < Y.X.N. IL» IH» J) 

DIMENSION  Y ( 100)  * 

J*0 

S*1 

S*  SIGN(S.Y(N>-Y(1> > 

IL*1 

IH*N 

1*1 

IFSS»(X-Y(1) > >  7*30.6 
6  I*N 

IF(S*(X-Y (N>  >) 10.30.8 
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7  IH*1 
J*1 

RETURN 
e  il«n 
j*z 

HE  TURN 

10  I*(IL*lHI/2 

IF  (S» (X»Y (1))|20«30«40 
20  1  Ha  I 

60  TO  50 
30  IL*I 
IH*I 
RETURN 
*0  R*I 

SO  lFUl»l-lH)10«60t60 
60  RETURN 
END 

SUBROUTINE  LAGRN3  <N,X,Y»U,Z> 
DIMENSION  X (5) • Y (5) 

Z»  0. 

DO  40  J*1,N 
P*l. 

00  Jo  1*1, N 
Ir<I-J>20, 10,20 
10  P*P«Y(JI 
GO  TO  30 

20  P«P*OI-X(I))/(X(J)-X(I)) 

30  CONTINUE 
40  Z*Z*P 
END 
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o  INTERP  -  Sets  up  tabular  data  for  Lagrangian 
interpolation. 

o  HILOW  -  Used  by  INTERP  to  select  high  and  low 
point  for  interpolation. 

o  LAGRNG  -  Performs  2-  or  3-point  Lagrangian 
interpolation . 

3 . 0  PROGRAM  INPUT 


Input  data  format  is  shown  in  Figures  185  and  186.  The 
input  is  divided  into  6  sections.  The  first  card  of  each 
section  is  numbered  in  the  first  column.  All  data  is  preset 
in  the  program,  and  the  preset  values  are  used  if  a  particular 
card  set  is  not  entered  in  the  data  deck.  If  a  given  card  set 
is  entered,  all  values  in  that  set  replace  the  preset  values 
and  the  entered  values  remain  for  following  cases.  Therefore, 
for  repeated  cases,  only  those  card  sets  for  which  values 
change  need  to  be  entered.  Except  for  the  card  set  number  in 
Column  1,  all  numbers  entered  require  a  decimal  point. 

3.1  Card  Set  1  -  Jet  Data 


This  card  set  consists  of  one  card  containing  all  data 
pertaining  to  the  orifice  initial-injection  conditions.  Data 
required  is  shown  on  Data  Sheet  1.  The  orifice  type,  NTYP , 
describes  the  spreading  rate  parameter  function  to  be  used. 
Orifice  types  available  are  listed  at  the  bottom  of  Data 
Sheet  2.  Other  data  on  the  card  is  self-explanatory. 

3.2  Card  Set  2  -  Mainstream  Gas  Profile  Data 


The  mainstream  gas  profile  immediately  upstream  of  the 
orifice  centerline  is  defined  by  temperature  (TOGP)  and  veloc¬ 
ity  (VGP)  at  NYP  number  of  points,  each  a  distance  YP  away 
from  the  wall  through  which  the  jet  is  injected.  Up  to  100 
points  can  be  entered,  depending  on  the  severity  of  the  pro¬ 
file.  Linear  interpolation  is  used  between  points.  Gas 
velocity  is  positive  in  the  mainstream  flow  direction.  Nega¬ 
tive  values  of  gas  velocity  can  be  entered  if  regions  of 
reverse  flow  exist. 

An  area  blockage  factor,  ABLK,  is  included  to  account  for 
the  increase  in  mainstream  gas  velocity  as  the  result  of  jet 
mass  flow  addition.  ABLK  is  calculated  as 


ABLK  = 


Dh  *  YMAX  *  N 
ADIL 


(.156) 


4 
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Submitted  by _  Program 


Figure  186.  Input  Data  for  Program  No.  1530,  Sheet 


Figure  186.  Input  Data  for  Program  No.  1530,  Sheet 


where  D.  =  orifice  diameter  or  width 

h 

YMAX  =  dilution- zone  width  or 

estimated  jet  penetration  depth 

N  =  number  of  orifices 

ADIL  =  dilution-zone  total  cross-section 
area  at  injection  point 

If  swirl  is  present  in  the  mainstream  gas,  velocity  VGP 
should  be  the  absolute  velocity  magnitude  and  ADIL  above  is 
the  axial  cross  section  times  the  cosine  of  the  swirl  a~gle. 


3.3  Card  Set  3  -  Mainstream  Duct  Area  Ratio 


The  combustor  araa  is  input  as  a  fraction,  AF,  of  the 
area  at  the  injection  point  as  a  function  of  distance,  XA, 
downstream  of  the  injection  point  at  NXP  number  of  points  up 
to  100.  If  this  card  set  is  left  out  the  area  remains  con¬ 
stant. 


3 .4  Card  Set  4  -  Iteration  Step  Control 

This  card  will  usually  not  have  to  be  entered,  as  preset 
values  will  normally  be  acceptable.  If  the  card  is  input  for 
the  purpose  of  changing  one  of  the  values,  all  of  the  remain¬ 
ing  values  must  be  entered  even  if  unchanged  from  preset 
values . 

Dilution-zone  width,  YMAX,  has  no  effect  on  the  trajec¬ 
tory  and  only  serves  to  stop  calculation.  A  smaller  value  can 
be  used  to  reduce  computer  time.  Iteration  proceeds  until 
YMAX  or  BETAMIN ,  minimum  trajectory  angle,  is  reached.  PLIM 
can  be  used  to  smooth  out  the  plots  by  using  values  between 
0.01  and  0.05.  IPLT  is  used  to  generate  trajectory  plots 
versus  actual  dimensions  X  and  Y  or  nondime ns ionally  relative 
to  jet  diameter. 

3 . 5  Card  Set  5  -  Spreading  Rate  Parameter 

The  change  in  trajectory  angle  is  calculated  by  the 
following  equation.  (Symbols  are  defined  in  Table  XXXI  of 
nomenclature . ) 


4  v 


cot  Bo  =  cot  Bi  +  - : — ~ 

2  tt  sm  B 


+ 


AZ 


(157) 
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TABLE  XXXI .  NOMENCLATURE 


a  =  virtual  origin  of  jet,  diameters 
Ap  =  primary-zone  exit  area,  sq  in. 

Af  =  reference  area,  sq  in. 

Afc  =  total  orifice  geometry  area  in  one  row,  sq  in. 

C  *  combustor  mean  circumference  (annular)  or  outer  diameter  (cans) 
Dh  *  orifice  hole  diameter,  in. 

Dq  =  jet  diameter  at  vena  contracta,  in. 

H  -  jot  spreading  width,  in. 

K  =  jet  empirical  spreeding  rate  parameter 
N  =  number  of  holes  per  row 
s  =  jet  trajectory  path  length,  in. 
s2  =  s  at  downstream  end  of  current  trajectory  step 
Tj  •  combustor  inlet  temperature,  °R 

=  effective  velocity  ratio  = 

Vj  =  jet  velocity,  ft/sec 

=  jet  initial  injection  velocity,  ft/sec 
Vp  =  primary-zone  exit  velocity,  ft/sec 
Vr  *  reference  velocity,  ft/sec 
Wp  =  primary-zone  exit  airflow  rate,  lb/sec 
wt  =  combustor  totul  airflow  rate,  lb/sec 
AP/P  =  combustor  fractional  pressure  loss 
AY  =  trajectory  step  depth,  in. 

=  initial  jet  injection  angle,  deg 
«  trajectory  angle  from  previous  step 
=  trajectory  angle  calculated  for  current  step 
PjD  =  initial  jet  density,  lb/cu  ft 
Pg  »  mainstream  gas  density,  lb/cu  ft 
Pp  =  primary-zone  exit  density,  lb/cu  ft 
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The  term  K  (2a  +  =-— )  represents  the  width  (in  jet  diameters) 

uh 

of  the  jet  out  to  points  on  either  side  of  the  centerline 
where  the  velocity  difference  has  decreased  to  one-tenth  of 
the  initial  velocity  difference.  The  trajectory  calculation 
is,  therefore,  directly  dependent  on  the  spreading  rate  param¬ 
eter,  K.  Analysis  indicates  that  K  is  of  the  order  of  1.0, 
but  empirical  values  must  be  employed  to  obtain  exact  agree¬ 
ment.  Dilution-zone  test  results  will  be  used  to  generate 
improved  functions  of  K.  If  specific  data  is  not  available 
to  the  user,  set  NTYP  =  2.0  on  Card  Set  1  and  do  not  enter 
Card  Set  5.  This  will  use  tabulated  values  of  K  as  a  func¬ 
tion  of  ve  derived  from  test  data  for  a  circular  orifice. 


The  parameter  Ve  is  the  basic  correlating  parameter  for 
the  calculation  and  is  defined  as  an  effective  velocity  ratio 


(158) 


r 

< 


•i 


Empirical  relations  for  K  are  then  derived  as  a  function  of  Ve 
for  specific  orifice  types. 

3 . 6  Card  Set.  6  -  End  of  Case 

A  card,  blank  except  for  6  in  Column  1,  signifies  the  end 
of  the  case. 


3.7  Multiple  and  Nondimensional  Cases 


Execution  time  is  between  5  and  10  seconds  per  case. 
Multiple  cases  can  be  run .  The  run  is  terminated  with  an  EOF 
card  after  Card  6  of  the  last  case.  A  test  case  using  all  of 
the  preset  data  values  can  be  run  by  inputting  only  Card  6. 

For  this  case  Ve  =  1.0,  and  all  velocities  and  densities  are 
nondimensionally  equal  to  1.0.  Pressure  is  set  to  25.19933 
atmospheres  with  temperatures  set  to  540 °F  (1000 °R)  to  produce 
a  density  of  1.0.  Nondimensional  cases  can  be  run,  for 
example,  by  leaving  out  Card  1  and  entering  mainstream  ve¬ 
locities  as  ratios  of  the  jet  velocity.  The  mainstream  den¬ 
sity  is  nondimensionalized  through  the  gas  temperatures 
TOGP(I) .  The  jet  temperature  is  preset  to  540°F  (1000°R) .  If 
TOGP  is  input  as  254 0°F  (3000° R) ,  the  mainstream  to  jet  den¬ 
sity  ratio  will  be  1/3.  Cases  can  also  be  run  by  leaving  out 
the  mainstream  profile  Card  Set  2  and  entering  jet  data. 

Card  1,  in  nondimensional  form.  In  this  case  the  mainstream 
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is  uniform.  The  advantage  of  nondimens ionalizing  is  that  a 
library  of  runs  can  be  generated  and  saved  for  future  use.  It 
also  simplifies  computation  of  different  operating  conditions 
for  a  given  dilution-zone  configuration. 

4 . 0  PROGRAM  OUTPUT 


The  output  for  each  case  is  printed  on  three  pages  shown 
in  Table  XXXII.  The  first  page  lists  the  input  parameters  for 
initial  jet  data,  step  control  data,  mainstream  profile, 
spreading  rate  parameter  function,  and  duct  area  ratio. 

The  second  sheet  lists  the  calculated  results.  Values 
printed  out  include : 

Y  =  jet  penetration  depth,  inches 
X  =  axial  length  from  injection  point,  inches 
S  =  length  along  jet  trajectory  path,  inches 
H  =  total  width  of  jet,  inches 

Also  listed  are  the  above  values  divided  by  the  jet  diameter, 
DO.  Note  that  DO  is  not  the  geometric  orifice  diameter,  DH, 
but  is  the  actual  jet  vena  contracta  diameter,  and  DO  =  SQRT 
(CDJ)  *  DH.  CDJ  is  the  jet  discharge  coefficient.  Additional 
values  listed  are: 

VE  =  effective  velocity  ratio 

VG  =  mainstream  gas  velocity,  ft/sec 

VDF  =  jet  centerline  velocity  decay  parameter, 

=  (VJ  CL  -  VG) / (VJO  "  VG) 

VJ  CL  *  jet  center 1 ine  velocity,  ft/sec 

TDP  =  jet  centerline  temperature  decay  parameter, 

=  (TJ  CL  -  TOGP) / (TJO  -  TOGP) 

TJ  CL  =  jet  centerline  temperature,  °F 
BETA  =  jet  centerline  trajectory  angle,  deg 
VJ/WJO  =  mass  flow  entrainment  ratio 
K  =  spreading  rate  parameter 

The  third  output  sheet  is  a  plot  of  the  jet  centerline 
trajsctory.  A  nondimen sional  representation  of  the  mainstream 
Ve  profile  is  printed  on  the  left  side.  The  trajectory  is 
plotted  in  coordinates  of  X  and  Y  or  X/DO  and  Y/DO  as  specified 
by  the  input  Card  4.  For  injection  angles  between  0  and 
90  degrees  the  plot  will  be  made  with  X  =  0  at  the  left  side. 
For  upstream  injection  the  origin  is  shifted  to  the  right  as 
required  to  contain  the  trajectory  on  the  plot. 
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TABLE  XXXII.  OUTPUT  FOR  PROGRAM  NO.  1530 
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XXXII.  (CONTD) 


4 


5.0  PROGRAM  APPLICATION 


The  main  objective  in  dilution-zone  design  is  to  optimize 
the  dilution  air  injection  to  obtain  maximum  mixing  in  a 
minimum  length.  The  ultimate  goal  is  to  be  able  to  predict 
the  pattern  factor  and  the  effects  of  geometric  combustor 
changes  to  improve  the  pattern  factor.  The  analytical  model 
can  be  used  at  several  levels  of  complexity  to  assist  in 
achieving  these  goals . 

The  level  of  complexity  is  dependent  on  the  information 
available  about  the  primary-zone  exit  conditions.  For  small 
annular  combustors,  the  width  of  the  annulus  is  primarily 
determined  by  fuel  nozzle  spacing  and  primary-zone  considera¬ 
tions.  The  airflow  available  for  dilution  is  generally  that 
which  is  left  after  requirements  for  primary  and  wall  cooling 
air  are  established.  The  major  design  parameters  to  be 
established  for  the  dilution  zone  are  the  distribution,  the 
configuration  and  size  of  orifices,  and  the  length. 

From  the  analysis  the  main  correlating  parameter,  Ve,  can 
be  used  to  characterize  the  dilution- zone  design.  Refer  to 
the  table  of  nomenclature  for  symbol  definition. 


V  =  SQRT  (p  /p .  )  x  V  /V,  (159 

e  *  P  p  jo 

This  relation  can  be  related  to  the  main  combustor  design 
parameters  as  follows:  the  primary-zone  exit  velocity  can  be 
related  to  reference  velocity  by  area,  density,  and  weight- 
flow  ratios.  The  jet  velocity  can  be  related  to  combustor 
pressure  drop.  With  these  substitutions,  the  equation  for 
becomes 


V 

e 


0.01707 


SQRT  (P.VP  ) 

P  v  v 

SQRT  (T3  x  AP/P  r 


(160) 


With  the  exception  of  densities,  all  variables  in  this  equa 
tion  are  defined  by  other  considerations.  The  jet  density 
can  be  estimated  as  combustor  inlet  density.  The  primary-z  e 
exit  density  can  be  computed  from  the  adiabatic  temperature 
rise  at  primary-zone  fuel-air  ratio  with  some  assumed  prir.  j- 
zone  combustion  efficiency.  If  no  information  is  available, 
an  assumption  of  80  percent  is  probably  reasonable. 


t 
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Table  XXXII  shows  a  jet  trajectory  calculation  for  a  test 
case  and  will  be  used  to  illustrate  the  procedure  for  applying 
the  method.  Input  conditions  were  taken  from  the  results  of 
the  AiResearch  Annulus  Loss  Model,  Program  1173.  The  trajec¬ 
tory  calculation  applies  to  the  first  dilution  orifice.  The 
Vg  parameter  has  a  value  of  0.076. 

Consider  ition  of  the  typical  ranges  of  the  various  param¬ 
eters  in  the  Ve  can  range  from  0.02  to  0.8.  For  typical 
annular  reverse-flow  combustors  with  a  reference  velocity  of 
25  feet  per  second,  a  pressure  drop  of  3  percent,  an  inlet 
temperature  of  600 °F,  a  reference-to-iiner-area  ratio  of  1.6, 
and  a  primary  flow  fraction  of  0.35,  the  Vg  parameter  is 
0.04.  Values  of  Ve  should  probably  be  kept  below  about  0.25 
for  good  penetration. 

From  Table  XXXII,  Sheet  2  it  is  seen  that  the  jet  tem¬ 
perature  decay  parameter,  TOP,  drops  to  0.1  within  a  path 
length,  S/DO,  7.77  jet  diameters  so  that  mixing  is  essentially 
complete  at  that  point.  This  point  occurs  at  a  penetration 
depth,  Y,  of  1.028  inches,  which  is  75  percent  of  the  1.37- 
inch  annulus  width  of  the  combustor  and  at  a  length  of  0.5 
inch  from  the  injection  point.  If  it  is  assumed  that  peak 
temperatures  occur  at  the  annulus  centerline,  it  is  apparent 
that  this  orifice  is  sized  to  reach  beyond  the  centerline  and 
may  be  somewhat  oversized. 

With  regard  to  orifice  spacing,  the  centerline  circumfer¬ 
ence  of  the  combustor  is  27  inches.  For  the  12  orifices 
originally  selected,  the  spacing  is  2.25  inches,  or  11.25 
orifice  diameters.  Table  XXXII,  Sheet  2  shows  the  jet  spread¬ 
ing,  H/DO,  to  be  5.35  jet  diameters  (4  orifice  diameters)  at 
the  end  of  mixing  (TDP  =  0.1)  .  Spreading  is  therefore  in¬ 
sufficient  to  obtain  full  coverage.  The  number  of  holes  could 
be  increased  with  reduced  diameters,  or  the  downstream  dilution 
ports  could  be  located  between  those  upstream. 

Experience  has  shewn  that  3  to  4  dilution  holes  per  fuel 
injector  should  be  used.  With  8  injectors  in  the  test  case 
combustor,  an  increase  from  12  to  24  holes  would  be  reason¬ 
able.  The  following  parameter  can  be  used  to  characterize  the 
spreading: 
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A  value  of  1.0  would  indicate  complete  spreading.  For  12 
holes,  the  value  is  2.81,  decreasing  to  1.98  and  1.725  for  24 
and  32  holes,  respectively.  Further  increase  in  the  number  of 
holes  would  probably  result  In  inadequate  penetration.  The 
process  of  checking  penetration  and  spreading  should  be 
iterated  until  a  satisfactory  compromise  is  achieved. 

The  procedure  just  described  is  applied  to  each  dilution 
row  in  succession.  Downstream  rows  should  be  located  at  the 
distance,  X,  from  the  previous  row  where  the  temperature  decay 
parameter  had  reached  0.1.  Gas  stream  conditions  for  the 
downstream  rows  should  be  estimated  by  adjusting  the  primary 
zone  exit  velocity  and  temperature  by  the  flow  mixing  in  from 
the  upstream  rows  and  including  an  increase  in  combustion 
efficiency . 

With  regard  to  orifice  configuration,  initial  design  com¬ 
putations  should  be  made  with  circular  orifices  assumed 
(lowest  cost) .  When  Ve  is  relatively  high  and  adequate  pene¬ 
tration  cannot  be  achieved,  rectangular  orifices  can  be  con¬ 
sidered  with  the  long  dimension  aligned  with  the  flow.  If  Ve 
values  are  very  low,  a  circular  jet  will  probably  impinge  on 
the  opposite  wall  before  mixing  is  completed.  Consideration 
can  then  be  given  to  a  rectangular  orifice  with  the  long 
dimension  at  a  right  angle  to  the  mainstream.  Also,  when 
annulus  velocities  are  sufficiently  high  to  result  in  jet 
injection  angles  less  than  70  degrees,  orifices  should  be 
plunged.  Tests  have  shown  that  plunged  orifices  have  injec¬ 
tion  angles  of  80  to  90  degrees  regardless  of  annulus  veloc¬ 
ity.  This  also  occurs  if  the  ratio  of  the  orifice  diameter 
to  the  wall  thickness  is  less  than  about  4. 

With  regard  to  prediction  of  pattern  factor,  the  jet 
trajectory  program  cannot  be  used  alone,  since  it  deals  with  a 
jet  mixing  into  an  infinite  stream.  The  maximum  gas  tempera¬ 
ture  and  resultant  pattern  factor,  therefore,  remain  constant 
up  to  the  point  at  which  spreading  of  adjacent  jets  begins  to 
overlap. 

The  output  of  the  jet  trajectory  analysis  can  be  used  as 
input  to  the  Gosman  program  to  compute  temperature  profile 
decay  rates  as  a  function  of  duct  length.  Preliminary  indica¬ 
tions  are  that  after  the  initial  jet  mixing  length,  the 
pattern  factor  decays  very  slowly.  The  final  turbine  inlet 
pattern  factor  is,  therefore,  highly  dependent  on  the  primary- 
zone  exit  pattern  factor. 

In  summary,  the  various  applications  of  the  procedure 
include  the  use  of  the  Ve  parameter  in  terms  of  combustor 
design  parameters  to  characterize  the  dilution-zone  design. 


If  VQ  differs  greatly  from  the  range  of  0.1  to  0.5, 
consideration  should  be  given  to  raising  or  lowering  the 
pressure  drop  or  changing  geometry.  With  estab¬ 

lished,  the  trajectory  analysis  can  be  applied  to 
optimum  orifice  sizes,  configuration,  and  spacing.  Finally, 
the  Gossan  program  can  be  employed  to  estimate  pattern 
factor  decay. 
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